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ADEPT — A HEURISTIC PROGRAM 
FOR PROVING THEOREMS OF GROUP THEORY 
by 
Lewis Mark Morton 
Submitted to the Department of Mathematics on August 22, 1966 in partial 
fulfillment of the requirement for the degree of Doctor of Philosophy. 

ABSTRACT 

A computer program, named ADEPT (A Distinctly Empirical Prover of Theorems), 
has been written which proves theorems taken from the abstract theory of 
groups. Its organisation is basically heuristic, incorporating many of the 
techniques of the htanan mathematician in a "natural" way. This program has 
proved almost 100 theorems, as well as serving as a vehicle for testing and 
evaluating special-purpose heuristics. A detailed description of the program 
is supplemented by accounts of its performance on a number of theorems, thus 
providing many insights into die particular problems inherent in the design 
of a procedure capable of proving a variety of theorems from this domain. 
Suggestions have been formulated for further efforts along these lines, and 
comparisons with related work previously reported in the literature have been 
made. 
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CHAPTER I 



INTRODUCTION 



Since its earliest days, research on artificial intelligence has been 
concerned with the mechanization of theorem-proving. Investigators have ap- 
proached the problem from two directions, combinatorial and heuristic. Pro- 
grams have been constructed which operate in an essentially combinatorial 
manner on statements of the predicate calculus. Due to the work of Herbrand 
and Gentzen, it was known how to describe a procedure, completely mechanical 
in nature,- that would be able to prove every "provable" theorem, sooner or 
later. Here the word "provable" is used in its technical sense, and the 
reader may refer to any book on symbolic logic. A proof procedure such as 
Herbrand' s is known as a complete proof procedure, and in the early days of 
digital computers it was not universally appreciated that even the large 
speed and memory of the computer would not suffice to make implementation of 
a complete proof procedure practical for problems of respectable complexity. 
However, due to results obtained with early codings of Herbrand' s procedure, 
it was soon discovered that the inefficiency of these algorithms quickly ex- 
hausted the resources of the largest and fastest computers. Much work has 
subsequently gone into refinements and modifications of complete proof proce- 
dures, and considerable improvements have been made. Some programs of this 
nature will be discussed in an appendix. 

The other approach to proving theorems by computer has been the heuristic 
one. Projects in this class are not to be confused with those programs, es- 
sentially combinatorial in nature, which have been modified by the inclusion 
of heuristics. Rather, the basic structure of the algorithm must be heuristic 
in nature. The earliest such attempt, and an important one, was the Logical 
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Theorist of Newell, Shaw, and Simon. Further work by these authors 
was joined by the so-called "advice- taker" approach originated by McCarthy. ' 
Many of these programs are in reality general reasoning algorithms, and their 
use as theorem-provers was done merely by way of an example. The heuristic 
approach holds out the enticing possibility of capturing the essence of human 
procedures which enable difficult problems to be handled with a reasonable 
amount of effort. The price to be paid is that of expressing, in the form of 
a computer program, most of the large number of methods that people use, often 
without realizing that they are doing so, while solving problems. 

The work to be discussed here belongs in the second category. Its devel- 
opment, however, has been of a different nature than that of most previous 
heuristic problem solvers. In this case, there has been no attempt to develop 

a general problem solving mechanism. Instead, attention has been focussed on 

(22) 
the abstract theory of groups (not necessarily finite), and in particular 

on the question of an algorithm uniquely designed to handle theorems of this 
particular area of pure mathematics. As is related at the end of this report, 
the program actually constructed can be easily adapted to "advice-taker" prob- 
lems in other areas — a fact hardly surprising in view of the reasoning capa- 
bilities needed to solve theorems in any branch of mathematics. But the 
creation of the program was done with only group theory in mind. 

In fact, the program was created only as a step toward a computer 
procedure for solving difficult problems in the theory of groups. Just as 
it was necessary to actually program Herbrand's procedure in order fully to 
appreciate the difficulties which arise in using this method with a digital 
computer, so it is necessary to have a program capable of handling a fair 
number of group theory theorems of slight to medium difficulty in order fully 
to appreciate the difficulties inherent in coping with the theory of groups 
using a digital computer. Existing programs had proved a few elementary re- 
sults in group theory, and more are being done as time goes on, but no pro- 
gram reported in the literature has proved more than a handful of theorems 
from this subject, and in particular, very little work in group theory has 



been done by programs of a basically heuristic nature. 

Most heuristic proof procedures, including the one to be discussed in 
this report, employ a main routine which works backward. That is, it begins 
with the statement which is to be proved, and constructs a chain of statements 
in the hope of reducing the original statement to one which is known or can be 
established. The chain is so constructed that if such a statement is found, 
the desired conclusion is proved or partially proved. In other words, at any 
point, the chain is part of a "proof tree" leading, by means of valid infer- 
ences, to the desired conclusion, though no part of it will be a true proof 
tree until some verifiable branches are generated. There is, usually, no 
guarantee that the chain will be turned into a true proof. The alternative is 
a forward approach, which consists of deriving statements from the hypotheses 
and axioms. In this approach, all chains are true proofs; the problem is that 
most statements proved are of no relevance to the desired result. In (14), 
Newell, Shaw, and Simon argue for the "working backward" approach. They liken 
it to the process a needle would use to find its way out of a haystack, as 
opposed to a search for a needle in a haystack. 

In addition to the basic structure of a program (that is, the 
organization of its main routine), there are the special-purpose subroutines 
which enable it to perform capably in a complex problem area. These sub- 
routines may incorporate individual heuristics; what is more, if the main 
routine is properly organized, they can be altered in various ways, thus 
making it possible to perform experiments which will help determine more suc- 
cessful methods for dealing with the problem area in question. This is cer- 
tainly true with heuristic theorem-p rovers . In developing the main routine, 
one must decide such questions as "in which direction is a proof to be devel- 
oped?" But the task of establishing theorems can only be done with the ad- 
ditional aid of many special-purpose techniques, each of which must be incor- 
porated somehow into the basic program. 

One of the advantages of the heuristic approach is that various 
techniques used by human problem-solvers can be directly incorporated into 



the program in a natural way. This was definitely a major consideration of 
the present project. Admittedly, it is not true that people organize their 
problem-solving efforts exclusively in the "working backward" manner employed 
by this particular heuristic program. However, it is fair to say that a large 
amount of theorem-proving is done in that fashion, and certainly a proof pro- 
ceeding in that manner is "natural" in appearance. Similarly, it is easy to 
attach various subroutines to a main routine organized to proceed backward. 

With the organization outlined above, a computer program was written, 
designed to produce efficient and natural-appearing proofs for theorems of 
group theory. The program is known as ADEPT, which stands for "A Distinctly 
Empirical Prover of Theorems". As its name indicates, ADEPT is extremely 
ad hoc, which should not be surprising when one considers how non-compact and 
poorly formalized are the methods that people use. Thus ADEPT does not have 
a neat, transparent algorithm, and any reader who feels that all mechanical 
theorem-provers should be basically tidy will be disappointed in the present 
work from that viewpoint. However, compensating for the complexity of the 
program is the ease with which ADEPT may be augmented with direct analogues 
of various shortcuts which people successfully use, and in this respect rapid 
development took place in this project. A notation was developed which was 
simple to use, incorporating English terms in a "Cambridge Polish" format. ^ 
This helped obtain flexibility for experimenting with special-purpose heuris- 
tics, and ADEPT became a useful tool for investigating the problem area of 
group- theoretic theorems. 

A large percentage of the special-purpose heuristics used with ADEPT 
restrict the growth of the proof tree. Ideally, no irrelevant steps should 
be allowed by such heuristics, and no step necessary to a correct and effi- 
cent proof should be prevented from occurring. In practice, of course, the 
heuristics are imperfect and fail to some degree in both respects. What seems 
to be needed is for the program to understand where it is in a proof; to be 
aware of what it is doing, and why. It is of no interest here to argue over 
whether or not a program can ever "be aware"; the effect is what is of 



interest. A program which generates efficient proofs for a large number of 
theorems is the goal, and if it is achieved one might as well say that the 
program is "aware". Certainly the benefits of awareness will have been 
obtained. 

A great amount of effort went into achieving such a property in ADEPT. 
In fact, a strong requirement was adopted from the beginning. One algorithm 
was to suffice for all theorems, yet be efficient in all cases. ADEPT never 
"backtracks". If for some reason it fails to prove a theorem, it does not 
remove some or all heuristic restrictions, though this could be done rather 
easily. Until the program is improved, enabling it to handle that theorem 
without any serious loss of efficiency in other proofs that it has success- 
fully produced, it will just be unable to prove that theorem, efficiently or 
inefficiently. This requirement may seem harsh, for people sometimes quit 
and start over in a different way, but it must be remembered that ADEPT is 
not doing advanced problems. Thus it is reasonable to experiment and find 
out just how far this "one-pass" approach can be carried. 

Closly related to the idea of "awareness" is the question of ascertain- 
ing when progress is being made in a proof. There is no simple way to do 
this — no metric, no compact test. As will be seen, much of the effort of 
developing a program which appears to understand what it is doing went into 
an analysis of how to recognize those steps which constitute real advancement 
toward the desired goal. 

The construction of a theorem-prover using this philosophy did not occur 
all at once. An "evolutionary" process was involved, as the fine points of 
the problem became evident. Thus the earlier versions of ADEPT served as 
vehicles for understanding the task of theorem-proving better, and for sug- 
gesting new heuristics to be incorporated into the program. This report 
tries to make this developmental aspect of the project clear. 

The presentation of both the development of ADEPT and its latest version 
is supplied with numerous, detailed examples. ADEPT has been used to solve 
many theorems, and each has provided new insights into the needs of any 
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algorithm which must cope with many diverse, individual theorems. Examples 
are given to illuminate the reasons for various additions which have been 
made to ADEPT. Others illustrate the more interesting abilities of ADEPT to 
prove problems efficiently. Still others point out the deficiencies which 
still remain. The totality represents a long program of experimentation, and 
underlines the worth of a working system which can be readily used to explore 
a problem area in detail. 

The theorems presented to ADEPT are all familiar to a student of group 
theory. For the most part, they are given in this report using a common 
mathematical notation. Those terms which represent concepts which must be 
defined in order to specify the theorem will be underlined when used in the 
statement of a theorem. From a syntactic point of view, of course, the pre- 
cise statement of the hypotheses, conclusion and relevant definitions deter- 
mine the problem to be proved. A slight variation in these statements results 
in a completely different problem. However, such a variation may not be a 
different problem from a semantic viewpoint; i.e., its interpretation in 
group theory may be equivalent. It is also possible that a variant of a 
problem may have a different (e.g., broader) interpretation, yet result in 
the same operations by the program. Experiments have been carried out in- 
volving alternate versions of a number of problems, and indeed the notation 
used by ADEPT allows flexibility in arranging such experiments. In general, 
the view is adopted that if ADEPT can prove some but not all of two or more 
semantically equivalent but syntactically different versions of a theorem, 
ADEPT "can prove the theorem". 

With this introduction, it is time to begin the actual detailed report. 
Chapter II introduces the notation (i.e., syntax) used by the program, and 
presents other details necessary to understand the description of the opera- 
tion of the program itself, which is given in Chapter III, accompanied by 
numerous flow charts. The fourth chapter specifically discusses ADEPT'S 
special-purpose heuristics — their development, purpose, and operation. 
Then, accounts of detailed problems commence, and it is felt that the number 
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and length of the problem descriptions are extremely valuable for an under- 
standing of this project. Theorems successfully proved by ADEPT are the main 
content of Chapter V, while Chapter VI concentrates on those theorems which, 
for any of a number of reasons, the program cannot handle. Chapter VII is a 
description, with examples, of extensions to the ADEPT program which have 
actually been carried out, though in some cases rather crudely. Then Chapter 
VIII suggests possible alterations, additions, and directions for future work 
which have not been explored to date. An appendix reviews the field of me- 
chanical problem-solving in the light of the present effort, covering both 
heuristic and combinatorial programs which have been reported in the litera- 
ture. A bibliography and index supplement the text. 
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CHAPTER II 

DESCRIPTION OF ADEPT — I 
NOTATION, CONVENTIONS, ETC. 

ADEPT has been programmed in the language LISP 1.5, using a special 

version of the system created by Joel Moses, a variant of the system currently 

i (4) 

in use at MIT s Project MAC. ' The special version provides an increase of a 

thousand words (or 14$) of binary program space by eliminating those features 

of the standard LISP package which are not used by the ADEPT program. As much 

of ADEPT as is possible is compiled. No new features were added to the LISP 

system. 

Since ADEPT is programmed in LISP 1.5, it is advantageous to have state- 
ments of its own language appear as lists to LISP. As will be seen in this 
chapter, the notation adopted for representing mathematical statements pos- 
sesses this property. In particular, the basic (or atomic) entities of this 
notation form a subset of LISP's atomic symbols . For ADEPT, a symbol is a 
string of alphanumerics , the first of which is a letter or an asterisk. Sym- 
bols are delimited by blanks or parentheses. 

To describe the language used by ADEPT, one must first designate which 
symbols are used for variables and constants . Three types or sorts of vari- 
ables and constants are provided for in the basic system, though more types 
could be added in the future, as mentioned in Chapter VII. The same symbols 
are used for both the variables and constants of a given type, and a flag 
associated with each symbol indicates which use is being made of it at a given 
time. Single letters (A through M, excluding F because of its special role in 
the LISP language) are used to designate sets, the symbols Fl through F9 are 
used for functions, and the symbols Al through A12 represent variables which 
may be members of sets. In addition, the program is provided with a facility 
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to define new variables or constants, as needed by internally generating new, 
unique symbols. 

By choosing the variable types as above, a two- level hierarchy of member- 
ship is fixed. Clearly ambiguity is possible with such a system, as, for in- 
stance, with a coset, which while it is a set with its own members, also can 
be itself a member of a larger set, the factor group. The burden of deciding 
whether such an object must be considered to be a member or a set in a partic- 
ular problem rests with the user, who must use one type of symbol or the other 
when he states the problem. This limitation caused no difficulties while ex- 
perimenting with ADEPT; i.e., no problem required three or more explicit 
levels of inclusion. 

The language contains connectives or propositional terms, and the follow- 
ing symbols are recognized as such: AND, OR, NOT, IMPLIES, IMPLIES2 . 
IMPLIES2 is the notation for the biconditional (<-»>). In addition, the lan- 
guage presently contains three logical constants , EQUAL2 , EQUAL, and FEQUAL, 

all of which are used to represent equalities. EQUAL2 is the basic symbol, 
i- 

and the "2" emphasizes the symmetric nature of equality. EQUAL and FEQUAL 

are present to allow the user easy implementation of some heuristic options. 
The use of EQUAL in a statement will restrict ADEPT to substitutions in only 
one direction, as will be seen in Chapter III. This makes it possible for the 
user, by his choice of logical constant for stating an equality, to provide 
that an axiom such as «,«," * e allow only simplifications, thus preventing 
expansions. An equality to be proved , stated using FEQUAL, will be processed 
differently by ADEPT from one stated using EQUAL2 or EQUAL, and this feature 
will also be described in the next chapter. Experience has shown that the 
flexibility provided by these options is of tremendous value. (When mathemat- 
ical notation is used in this report to describe a proof, the symbol » will 
ordinarily be used for equality. However, if confusion is present or if it is 
important to specify the exact form of a statement in ADEPT'S language, math- 
ematical notation will be augmented by the symbols « 2 , » f , and ■*-, correspond- 
ing to EQUAL2, FEQUAL, and EQUAL respectively, and the notation for EQUAL is 
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intended to emphasize that the second argument can be substituted for the 
first, but not vice versa .) 

The symbol EXISTS is used as an existential quantifier , but there is no 
explicit universal quantifier. This should not be surprising, for most uses 
of the universal quantifier in group theory are implicit. Any statement with 
variables not bound by an existential quantifier is interpreted as being uni- 
versally quantified over those variables. As for the existential quantifier, 
it will be seen in the next chapter that ADEPT does not use a uniform proce- 
dure to handle it. Instead, special cases are provided for separately, and 
new subroutines can be created as the need for treating more cases arises. 

The name syntactic constant will be used to group together connectives, 
logical constants, and quantifiers. The operations performed by ADEPT upon 
encountering a syntactic constant will be discussed in Chapter III. 

Any symbol which is not a variable/constant or a syntactic constant is a 
term . Terms can be identified by entries in tables of necessary and suffi- 
cient conditions. When the operation of ADEPT is considered, it will be ex- 
plained why there are in fact only two tables — one of sufficient conditions 
and one with definitions (necessary and sufficient conditions). There are 
two terms which are given null entries in these tables — MEMBER and *PROD — 
and thus may be considered to be primitives. 

Terms may start either with an asterisk or with a letter, and it will be 
seen that asterisked and non-asterisked terms have different roles in the 
syntax of the language. Consequences of the use of the two kinds of terms 
will appear throughout this report. 

It is now time to see how the various symbols are combined into state- 
ments. First, it is necessary to describe an intermediate notion which is 
essentially a generalization of the concepts of variables and constants, and 
which also is subdivided into types. Objects are defined (recursively) as 
follows: 

i) a set variable or constant is a set object (e.g., A); 
ii) a member variable or constant is a member object (e.g., Al); 
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iii) a list of three elements, the first of which is a function 
variable or constant and the second and third of which are 
set objects, is a function object (e.g., (Fl A B)); 
iv) a list of four elements, the first three of which are as 
in iii) and the last of which is a member object, is a 
member object (e.g., (Fl A B Al)); 
v) a list of one or more elements, the first of which is 
an asterisked term and the rest of which are objects 
of any type, is an object of type to be determined by 
the user's interpretation (e.g., (*CENTER G)). 
In iii), iv), and v) , the compound objects , the elements of the list excluding 
the first are arguments of the first element, and the list is said to be 
headed by its first element. All lists conform to the syntax of the program- 
ming language LISP 1.5. 

Some comments on the concept of object are in order. The definition by 
iii) of function objects and the closely related definition by iv) of certain 
member objects are illuminated by the intended interpretation. The second 
and third elements of these lists are to be understood as the domain and 
range, respectively, of the function. The fourth element of the list, if 
present, is the argument of the function in the mathematical sense. Thus 
(Fl (* INTERSECT ION H K) K) might denote the canonical map from HflK into K, 
and (Fl (*INTERSECTION H K) K Al) would then denote some point of K, namely 
the image of Al under the map in question. Note that function variables or 
constants are not allowed to "stand alone" as function objects. All functions 
have a domain and range, and the language, unlike mathematical notation, re- 
quires that this must be made explicit. Incidentally, the syntax allows ob- 
jects that have no interpretation. For instance, the object (Fl A B Al) is 
meaningless unless Al is contained in A. 

The intended interpretation also supplements the definition of objects 
given by v). Here the user, in formalizing a definition or sufficient condi- 
tion for an asterisked term, will determine what arguments^ are needed, and 
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therefore their type. (IDENTITY G) is a possible example of a member ob- 
ject with one argument, a set object. ^INTERSECTION H K) was used above as 
a set object with two set objects as arguments. Thus the asterisked term in 
this kind of object syntactically is a function. 

Objects are combined with the other symbols into statements or formulas 
according to the following recursive definition (all statements will be lists 
to LISP 1.5): 

i) a list of two or more members, the first of which is a 
non-asterisked term and the rest of which are objects of 
any type, is a statement (e.g., (SUBGROUP H G) ) ; 
ii) a list of three elements, the first of which is EQUAL, 
EQUAL2 or FE-JUAL and the other two of which are member 
objects, is a statement (e.g., (EQUAL2 Al (*IDENTITY G))); 
iii) a list of two elements, the first of which is NOT and 
the second of which is a statement, is a statement; 
iv) a list of three elements, the first of which is AND, OR, 
IMPLIES, or IMPLIES2 and the other two of which are 
statements, is a statement; 
v) a list of three elements, the first of which is EXISTS, 
the second of which is a variable, and the third of which 
is a statement, is a statement. 
Clearly, meaningless statements are possible; i.e., ones with no inter- 
pretation. However, the intended use of the various forms of statements 
should be clear, except for those defined by i). There is, of course, a 
parallel between such statements, headed by a non-asterisked term, and the 
objects headed by an asterisked term. The arguments in each are determined 
by the user's use of the term. However, a statement headed by a term is in- 
terpreted as a statement about its first argument . Thus (CENTER C G) says 
that C is the center of G, and (HOMOMORPHISK (Fl G H)) says that a certain 
map is a homomorphism. Non-asterisked terms, then, serve as predicates, with 
a restricting convention on the order of the arguments. 
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Any statement which contains an object headed by an asterisked term can 
be translated into one that does not. For instance, the statement 
(INTERSECTION I (*CENTER G) H) , which says that I is the intersection of the 
center of G and some set H, could be restated as (AND (CENTER C G) 
(INTERSECTION I C H)). This is a direct parallel to the practice of intro- 
ducing variables in a proof stated in mathematical notation; e.g., "Let C be 
the center of G, and consider the intersection I of C and H. Then...." 
Though such a translation is always possible, it is not always desirable. 
For instance, a user would not want to eliminate an instance of 
(♦INVERSE Al G) any more than a mathematician would want to say "let y be the 
inverse of x" instead of simply using "x" ". (The symbol G denotes the set 
on which composition, and hence the inverse, is defined.) 

A converse translation, eliminating non-asterisked terms in favor of 
asterisked terms, is not possible. How, for instance, could "a^e G & & 2 e G " 
be expressed, since both (MEMBER Al G) and (MEMBER A2 G) could only be trans- 
lated into (*MEMBER G) , thus losing information? An object such as 
(*MEMBER G) would be a variable, syntactically. To simplify construction of 
ADEPT'S matching routines, a convention has been adopted providing that all 
ob i ec ts headed by an asterisked term must be used as constants . Thus 
(*MEMBER G) would be excluded (except in the unlikely case that G has but 
one member), while (*CENTER G) is an object which could appear in a state- 
ment. Translation from statements headed by non-asterisked terms is there- 
fore limited to cases where the term uniquely specifies its first argument. 

While use of asterisked terms is natural in some cases, such as the 
above-mentioned example of inverses, at other times it is not obvious whether 
or not such terms should be used. A number of examples will be given in 
later chapters illustrating the effects of notation on specific problems. It 
suffices to say here that ADEPT 1 s language allows a degree of flexibility in 
this regard which sometimes can be exploited to advantage. The program it- 
self has no facilities for translating from the use of one type of term to 
the use of the other. 
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All proofs constructed by ADEPT are lists of statements, developed by 
operations on statements, so sufficient information on notation has been pre- 
sented to allow discussion of a proof. However, for purposes of programing, 
many statements have associated property lists , which are inserted into a list 
which is a true statement, preceding the first element. This is the standard 
form of a table entry . In LISP terminology, CAR of a table entry is the prop- 
erty list, and CDR of a table entry is a statement. For example, statements 
to be entered in the tables of conditions and definitions are accompanied by 
a property list consisting of the term being specified, followed by variables 
of appropriate type serving as dummy arguments. An example will clarify: a 
sufficient condition for subgroup (closure under products and inverses) is 
given by ((SUBGROUP A B) IMPLIES (AND (MEMBER Al A) (MEMBER A2 A)) (AND 
(MEMBER (*PROD Al A2 B) A) (MEMBER (*INVERSE Al B) A))). Now if it were 
desired to expand the statement (SUBGROUP H G) using this condition, the de- 
sired substitution instance of the statement given in the table entry could be 
obtained easily with the aid of the result of matching the property list with 
the statement to be expanded. Note how the property list of a definition or 
condition specifies the number and type of arguments of a term. The primitives 
MEMBER and *PROD have their arguments similarly specified by null definitions - 
((MEMBER Al A)) and ((*PROD Al A2 A)) respectively (where the third argument 
of *PROD is the set on which the composition is defined). Needless to say, 
consistency in the use of arguments must be followed in creating the tables of 
conditions and definitions. 

To complete the groundwork for the discussion in Chapter III of the oper- 
ation of the ADEPT program, it is desirable to discuss the way in which a pro- 
posed theorem is inputted to the program, and the output that is obtained from 
it. Instrumental to this discussion is the fact that in the course of working 
on a proof, ADEPT develops two lists, or tables. Table I is a list of known 
statements — either hypotheses, axioms, or certain intermediate results; 
table II is the proof tree proper. 

A problem is presented to ADEPT in three statements, each of which may be 
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a conjunction. The first two are hypotheses, either (or both) of which may be 
vacuous. The first of these will have all of its variable/constant symbols 
fixed (i.e. flagged) as constants; any additional variable/constant symbols in 
the second will not be flagged. Both statements are then "sent" to a subrou- 
tine called PUTONl (described in the next chapter) for inclusion on table I. 
The third statement of input is the desired conclusion. All of its vari- 
able/constant symbols will be fixed as constants except those appearing in 
(sub) statements headed by the connectives IMPLIES or IMP LIES 2 . The conclusion 
will be put on table II by the subroutine PUT0N2 (also to be described in 
Chapter III). No syntax check is performed on any statements inputted or 
internally formed to insure that they are legally formed, so the user must 
exercise care. 

In this way the determination of whether variable/constant symbols are 
used as constants or variables is handled during the inputting of a problem to 
ADEPT. Any such symbol not flagged as a constant is treated as a variable. 
In the course of a proof, additional symbols may be generated, but the purpose 
for the generation will specify their use. A restriction on the user in this 
regard is actually the only unfavorable consequence observed due to the absence 
of an explicit universal quantifier in the language. This is the fact that any 
symbol intended to be a variable in an implication which is part of a conclu- 
sion must not have been previously fixed as a constant due to its use in the 
first hypothesis. For example, if (LCOSET A Al B C) were the first hypothesis 
(A is the left coset of B given by Al where composition is defined on the set 
C — e.g. , B is a subgroup of C and A is a.B) then (IMPLIES (MEMBER Al A) 
(MEMBER Al C)) would not be a way of stating the conclusion that A is a subset 
of C. The intent, having the Al of the conclusion be a universally quantified 
variable, is thwarted by the previous treatment of Al in the hypothesis as a 
constant. Thus the conclusion presented as above would result in a proof that 
just Al, the particular element specifying the coset, is a member of C. (Note 
that the statement (IMPLIES (MEMBER Al (*LCOSET Al B C)) (MEMBER Al C)) as a 
conclusion would also have the restricted interpretation, but this statement 
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could not have any other interpretation anyway!) Use of A2 in the conclusion 
would remedy the problem, which is an uncommon one, since other methods of 
stating conclusions avoiding implications are usually not only possible but 
more natural, as in this case, the statement (SUBSET A C). The user must also 
be careful when using implications in conclusions to insert hypotheses which 
will fix as constants any variable/constant symbols which must be so treated 
in the implication. This conceivably could necessitate dummy hypotheses. 
Alternatively, the whole problem (which seldom is encountered) could have been 
avoided by requiring the user to accompany the three input statements with a 
list of which variable/constant symbols are to be treated as constants. 

The manner in which the proof tree is developed is the subject of the next 
chapter, but a few remarks will now be made concerning the structure of table 

II. Basically, it is an embodiment of the "working backward" approach to 

(14) 
theorem-proving. As indicated above, the desired conclusion becomes the 

first node, or head , of the proof tree. Loosely speaking, the proof procedure 
may be said to be an attempt to reduce the desired result to a statement which 
is already established. For this reason, branches of the tree are called 
reductions . A reduction of a node is, with one exception, a statement which, 
if verified, would suffice to verify that node. A node, of course, may have 
any number of reductions. The exception referred to occurs at a node which is 
a statement headed by the connective AND. Such a node is immediately subdi- 
vided and therefore has two and only two reductions, its conjuncts, each of 

which must be verified in order to verify the conjunction. The notation of 

(23) 
Slagle will be used in diagrams of proof trees; reductions are indicated 

by lines descending from the parent node, and reductions which must both be 

proved in order to verify the parent node are linked by an arc (Figure 1). 

Statements on both tables I and II have associated property lists. The 

table I entries are accompanied by a line number and a numerical indicator of 

the logical class to which the line belongs, a concept which will be developed 

in Chapter III. The property list of a table II entry is more complex. Its 

composition is as follows: 
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i) an Indicator of the line's status ; 
ii) a list of the line numbers of the line's immediate 
predecessors; 
iii) a list of the line numbers of the line's reductions; 
iv) the line's number; 
v) the line number assigned or that will be assigned 
to the first entry on table I which has not been 
checked against the line; 
and an optional element present only on the property lists of lines which are 
heads of subordinate trees begun in the course of a proof: 

vi) the line number of the table I entry which was used 
in the creation of the line. 
The use of these elements will become clearer in the succeeding chapters. 
The set of possible statuses for a proof tree line is as follows: 
i) VER - ver ified; 
ii) REL - unverified and rele vant; 
iii) REL1 - unverified, relevant, but deemed to be partially 
processed; 
iv) IRR - known to be irre levant; 

v) SIM - unverified, but simplified (or subdivided, in the 
case of a conjunction) and therefore to be skipped; 
vi) ST - on a subordinate tree and unverified; 
vii) VERST - on a subordinate tree and ver ified; 
viii) PNT - that line which is currently under closest exam- 
ination by ADEPT. (PNT is an acronym for "pointer".) 
In discussing the formal language and proof structure used in the ADEPT 
project, no mention has been made of rules of inference. This is because they 
are not treated formally, but in an ad hoc manner, as will be seen in the de- 
tailed description of ADEPT'S operation. 

(2) 

ADEPT has been implemented on CTSS (Compatible Time Sharing System) v at 

MIT's Project MAC. Therefore, communication with the program from a 
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teletypewriter console is possible. Stating a problem is done by typing in 
the three statements described previously, and conditions and definitions will 
be requested if not found in the tables. An answer of "NO" will be recorded 
as a null condition or definition so that terms may be undefined without re- 
petitive demands from the system for tiie definition. The output consists of 
the final status of tables I and II. (Sometimes information on property lists 
is destroyed when table II lines are verified, so the final output may appear 
to have lines with erroneous property lists.) One observes from the output 
whether or not a theorem has been proved simply by noting whether or not the 
first entry of table II is of status VER. 
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CHAPTER III 

DESCRIPTION OF ADEPT — II 
STRUCTURE OF THE PROGRAM 

As was pointed out in the last chapter, ADEPT uses a "working backward" 
method of proof. This basic organization is outlined in somewhat more detail 
in Diagram I. Examination of that flow chart will reveal that the majority of 
the work of proving a theorem must take place during the steps labelled "ex- 
plore consequences...". Also it is obvious that much must be explained about 
the use of the innocent word "progress". 

Some of the occasions when entries are made to tables I and II are evident 
from Diagram I. Many others are found in the "explore consequences" phases of 
the program. The rest of the basic structure of ADEPT lies in the routines 
which add lines to one of these tables; i.e., add a property list to a state- 
ment and do any necessary processing which must accompany the placement of the 
new table entry. Of course, there are also matching subroutines, and a 
"tree-pruning" subroutine which is called whenever a table II entry is veri- 
fied. 

A few remarks regarding the tables of sufficient conditions and defini- 
tions are now in order. First of all, it is important not to confuse these 
tables with table I, which is the list of "known" information being used in 
any one proof. The totality of information included as definitions, etc., is 
never dealt with in a proof; only those instances of the entries of these 
tables which are put on tables I or II are processed in any detail. 

Instances of sufficient conditions are used in only one way. As shown 
in Diagram I, if the line currently of status PNT is a statement headed by a 
term, then if there is a sufficient condition for that term in the table, the 
appropriate instance of that condition will be added to table II as a reduction 
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of the line of status PNT. In the event that a sufficient condition is not 
available, the table of definitions will be consulted for a possible reduction. 
Instances of definitions can also be placed on table I, and this occurs at 
three steps of Diagram I which are labelled with the phrase "explore conse- 
quences", augmented by "of... ". In these cases, a call for definition in- 
stances is being made, either for definitions of terms appearing in a proof 
tree line of status PNT, terms in table I statements identifying constants in 
the line of status PNT (e.g., (SUBGROUP H G) identifies H) , or terms appearing 
in the first hypothesis of the problem. 

The method of proof utilized by ADEPT makes it natural to have a separate 
table of sufficient conditions, supplying a source of material for possible 
reductions. Definitions are indispensible for many reasons, and it would be 
poor practice to force a check of both a sufficient condition table and a 
necessary condition table in order to obtain them, hence ADEPT has a table of 
definitions. As for necessary conditions £er se, they could be used for the 
same reasons that definitions are used in connection with adding statements to 
table I, but a need for such a feature has not been observed with ADEPT. The 
inclusion of such a table might be a future extension. Until such time, nec- 
essary conditions for terms may be included in the definition table if the 
user is sure for some reason that no attempt will be made by the program to 
add to table II an instance of the definition of that term. 

At present, provision is made for only one sufficient condition or defi- 
nition per term. Of course, this is hardly surprising in the case of defini- 
tions. However, even in the case of conditions, there is really no restrict! 
because of the possibility of using the connective OR. This does lead to the 
equal consideration of all disjuncts, at least at present, and for harder 
problems requiring selection among multiple conditions, more sophisticated 
procedures will have to be implemented in order to overcome inefficiency. 

In Diagram I, "initialization and input of problem" results in the place- 
ment of the two hypotheses on table I and the conclusion on table II. The 
conclusion, or more precisely, all conjuncts of the conclusion which are not 
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themselves conjunctions, will be assigned status REL. The main loop is then 
entered, and one can think of a pointer being positioned on the first table II 
line of status REL. Note that this assignment of status PNT is made only to 
lines of status REL; thus, for instance, lines on subordinate trees can never 
undergo the special treatment afforded to such lines. 

If the current line of status PNT is an implication, an instance of it is 
created by generating a new symbol for each distinct variable (not constant) 
of the line, declaring these new symbols to be constants, and performing the 
indicated substitution (thus achieving a process of universal specification). 
The antecedent of the resulting implication is then added to table I and the 
consequent becomes a reduction (of status REL) of the original implication. 
(In general, reductions are tentatively assigned the status of their pre- 
decessor. See, however, Diagram IV.) This terminates consideration of the 
implication. 

If the line of status PNT is not an implication, ADEPT at this point 
calls its main subroutine, which performs a scan, deriving reductions of proof 
tree lines which can be inferred from the current set of entries on table I. 
This derivation can be done in various ways, with various allowed inferences, 
and will be discussed in detail shortly. This is what is meant by "explore 
consequences". In some subsequent steps of Diagram I, it is done after adding 
appropriate definition instances, if any, to table I. 

Treatment of special cases by means of the subroutines SOLVEX and HOMOMF, 
mentioned near the bottom of Diagram I, will be discussed at the end of this 
chapter. As for the communication to the user regarding continuation of a 
proof, clearly this is just a frill made possible by the on-line terminals of 
the MAC time-shared system. This point on the flow chart is almost never 
reached in theorems which ADEPT is able to prove. 

Diagram I reveals to some extent the heuristic nature of ADEPT, at least 
on one level. Of course, proceeding back from the conclusion is itself a heu- 
ristic for proving theorems. In addition, existence of such entities as FEQUAL 
allows heuristic possibilities. But a central and most difficult goal of this 
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project was to introduce, presumably by use of heuristics, an "awareness" into 
the program. It seems obvious that a successful heuristic theorem-prover must 
perform as though it "understood" where it was in a proof. A student, of 
course, has such an ability, and to what degree it can be inserted in a pro- 
gram will be reflected in the order of development of a proof and in the ratio 
of necessary to irrelevant lines in the proofs produced. 

The means used to attempt to achieve this ability in ADEPT include the use 
of the status PNT, and the accompanying design and application of criteria for 
"progress", which determine when the pointer is to be advanced. Through use 
of status PNT, instances of definitions can be introduced as they become rele- 
vant. Of course, this feature can be of help only until all the instances 
which will be used in a proof have been produced. In addition, if the point 
in the flow chart where terms of the first hypothesis are considered is 
reached, experience shows that most of the instances will be obtained all at 
once. However, the first stages of a proof often proceed more efficiently 
because of this "selectivity" feature. Alternative methods for achieving 
similar results are discussed in Chapter VIII. As for detailed discussion of 
particular heuristics, this is the subject matter of the next chapter. 

The flow of a proof can now be illustrated, and the example will also 
serve to illuminate the content of Chapter II. The proof will be discussed 
in both ADEPT'S language and mathematical notation. Rather than supply appro- 
priate definitions to the tables, it will be assumed that the tables are empty 
(except for null definitions of *PROD and MEMBER, and a null sufficient con- 
dition for MEMBER) and that ADEPT asks the user for information at the appro- 
priate times. 

Theorem: If K is the kernel of a homomorphism f^ mapping 
G into H, then K is a submonoid of G. 
This is presented to ADEPT as follows: 

(AND (KERNEL K (Fl G H)) (HOMOMORPHISM (Fl G H))) 

NIL 

(SUBMONOID K G) . 
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(In what now occurs, it will be assumed that an early version of ADEPT is being 
used, unaugmented by a number of heuristics yet to be described.) 

Table I now is as follows (since conjunctions and biconditionals are 
immediately subdivided by PUTONl): 

((1 1) KERNEL K (Fl G H)) 

((22) HOMOMORPHISM (Fl G H)), 
K, Fl, G, and H are fixed as constants, and ((REL (HEAD) (NONE) 1 1) 
SUBMONOID K G) goes on table II. This line is changed from status REL to 
status PNT, and the preliminary scan is fruitless. ADEPT now desires a suffi- 
cient condition for submonoid , and the user responds ((SUBMONOID A B) IMPLIES 
(AND (MEMBER Al A) (MEMBER A2 A)) (MEMBER (*PROD Al A2 B) A)); i.e. , A is a 
submonoid of B if a.e A & a,e A — > a^e A (i.e., A is closed under composi- 
tion). This results in the instance a^e K & a.e K -*C» a^e K being added to 
table II as a reduction: ((REL (1) (NONE) 2 1) IMPLIES (AND (MEMBER Al K) 
(MEMBER A2 K)) (MEMBER (*PROD Al A2 G) K)). This causes the property list of 
line (1) (which had already been altered by the fruitless scan) to be changed 
to (REL (HEAD) (2 NONE) 1 3), as line (2) is assigned status PNT. Property 
lists will henceforth be ignored in this discussion, except that entries will 
be referred to by their line numbers. 

The implication is immediately split, and, assuming the symbols generated 
are Kl and K2 , the statement (AND (MEMBER Kl K) (MEMBER K2 K) is sent to PUTONl 
for inclusion on table I, and line (3) of the proof tree becomes (MEMBER 
(*PROD Kl K2 G) K). In mathematical language, to prove the desired implica- 
tion, assume k and k 2 are fixed, arbitrary members of K, and prove k^e K. 
Line (3) now has status PNT, a scan is of no help, and the line has no 
terms which are defined in the tables. The line's constants are Kl, K2 , G, 
and K, the first two of which are identified by table I statements headed by 
a term with a null definition. G is not identified at all, but K leads to a 
request for the definition of kernel . The user supplies the statement 

a,e K <==> ^(a.) <- e„ in ADEPT'S language, and the appropriate instances of 

1 1 L H 

two implications appear on table I. The first of these is (IMPLIES (EQUAL 
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(Fl G H Al) (*IDENTITY H) ) (MEMBER Al K)), and the scan which takes place after 
the two entries are made to table I uses this to create the reduction (4): 
(EQUAL (Fl G H (*PROD Kl K2 G)) (*IDENTITY H)). In other words, to prove 
k.k e K, prove that ^ maps k k into the identity. The scan and the progress 
determination are programmed so that the scan now stops and line (4) takes on 
status PNT. From it, an instance of the definition of identity is obtained 
and put on table I. (A two-sided identity is assumed by using the definition 
a e <r- a & ea <— a ) . This leads to no reductions, but an examination of 
line (4)'s constants produces the "discovery" that (Fl G H) is a homomorphism. 
(Some special-case programming had to be inserted to provide that this be done, 
due to the prohibition on function symbols standing alone.) Upon obtaining 
the definition of homomorphism, the scan is able to produce (5): (EQUAL 
(*PROD (Fl G H Kl) (Fl G H K2) H) (* IDENTITY H)). At this point the scan 
continues, using the other half of the definition of kernel along with other 
table I entries to derive facts about some of the objects in (5). Such facts 
are put on table I; in this case they are (EQUAL (Fl G H Kl) (*IDENTITY H)) 
and (EQUAL (Fl G H K2) (*IDENTITY H)). Still continuing, the scan can now 
create from (5) the reductions (6): (EQUAL (*PROD (* IDENTITY H) (Fl G H K2) 
H) (*IDENTITY H)) and (7): (EQUAL (*PROD (Fl G H Kl) (* IDENTITY H) H) 
(•IDENTITY H)), and from (6), (8): (EQUAL (Fl G H K2) (*IDENTITY H)) using 
the definition of identity, and (9): (EQUAL (*PROD (*IDENTITY H) (*IDENTITY H) 
H) (*IDENTITY H)). From (7) is obtained (10): (EQUAL (Fl G H Kl) 
(•IDENTITY H)), and (9) is seen to be a reduction of (7) as well as of (6). 
From line (8) is obtained (11): (EQUAL (*IDENTITY H) (*IDENTITY H)) which is 
verified, as are all lines of the form (EQUAL Al Al). This causes a chain of 
verification back to line (1), completing the proof. Thus ADEPT, using defi- 
nitions of homomorphism, identity, and kernel, reduced f (k^) = e H to 
l : 1 (k 1 )f 1 (k 2 ) = e H and then to e R f^) = e H> ^(k^H = V f l (k 2 ) = V 

e = e u , f, (k..) = e , and finally to e = e , an obviously valid state- 
HH1J-H "n 

\t. The final proof tree has the form shown in Figure 2. 

The use of EQUAL rather than EQUAL2 in the definitions of kernel and 
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identity is crucial in avoiding serious proliferation of lines. For instance, 

EQUAL2 in the definition of kernel would allow ^O^)^ = e H to have such 

reductions as ^OO^OO = e . and EQUAL2 in the definition of inverse would 
1111 H 

lead to even worse misfortunes. To be sure, the above proof is itself ineffi- 
cient, containing several irrelevant lines. However, the current version of 
ADEPT, whose development will be discussed in the next chapter, contains fea- 
tures which augment the basic structure shown in Diagram I and enable the pro- 
gram to avoid many needless actions. In this particular example, the proofs 
given by the old and latest versions deviate starting with the reductions of 
line (5), f. (k )f (k ) = e . In the improved procedure, substitutions of e H 
for both fiOO and f.(k_) are made simultaneously and the subsequent reduc- 
tion, e e = e , is immediately simplified into the verifiable line e = e R . 
H H H. 

Thus the current proof contains seven nodes, and the proof tree is a straight 
line. Certainly for that particular problem, that is a very efficient, natu- 
rally developing proof. 

The scanning procedure is probably the most important subroutine in the 
program, and certainly it is the most complex. It is here that many heuristics 
can be added and tested. The main function of the scan, as already indicated, 
is to discover what new lines can be added to the proof tree as a result of 
implications on table I, and what substitution instances of lines already on 
the proof tree may be added to table II as a result of equalities on table I. 
This process is handled by a double loop, and can be done in either of two 
ways, both of which have been thoroughly explored with ADEPT. The first is to 
cycle through table I, and for each entry of one of the appropriate forms, to 
cycle through table II, generating all reductions of proof tree lines possible 
because of this particular table I statement. The other, of course, is to 
cycle through the proof tree, creating all reductions of a given line of table 
II due to all of the "known facts" on table I before proceeding to the next 
line of the proof. 

The latter design of the scan is superior from the point of view of having 
the program achieve an "awareness" of where it is in a proof. The attention 
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of the program is not removed from, but remains focussed first and foremost 
upon the proof tree and its development. One consequence of this is the ease 
in which a concept of "related" substitutions can be implemented, permitting 
such steps to be made simultaneously and thus allowing such steps as the jump 
from f , (k. ) f , (k„ ) - e u to e u e„ = e„ which was seen to be desirable in the 

1 1 1 i. H H H rl 

example just given. 

The current version of the scan is known as SCANW, and it will now be 
explained in detail. It cycles through the proof tree in its outer loop, and 
contains such refinements as the related substitution feature. To understand 
its operation, the concept of logical class must be defined. (The reader will 
remember that an indicator of the logical class is the second element of a 
table I entry's property list.) The logical class represents an attempt by 
ADEPT to group together related table I entries. For instance, all conjuncts 
of a conjunction sent to PUTONl are put in the same class (except for the con- 
juncts of the two conjunctions comprising the original hypotheses), and the two 
implications resulting from a biconditional are in the same class. Also in the 
same logical class are instances of the same definition added to table I during 
a single "explore consequences of all..." execution. Finally, any lemmas de- 
rived by the program, by procedures about to be described, from a table I 
implication will be in the same class as the implication. For example, if a 
line on the proof tree mentions two sets H and J, both of which are subgroups 
of a group G, and if both instances of the definition of subgroup are placed on 
table I during the examination of the constants of this line, then all con- 
juncts of both instances will be in the same logical class; in addition, if 
due to table I entries a.e H and a.e H, the lemma «]*,• H is derived using the 
conjunct a.e H & a 2 « H -^> a.a 2 e H of the definition of H, then this lemma will 
also be in the same class. 

SCANW is described in Diagram II, which is augmented by Diagrams Ila - lie, 
due to the routine's complexity. When studying these flow charts, note that 
this version of the scan contains within it a definition of "progress"; i.e., 
when the pointer is to be moved. This is by no means the only way to treat the 
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evaluation of progress, and the next chapter will discuss this whole question 
in detail. 

The scan, as a routine, has two arguments. One, L, is used only in the 
processing of implications. The second, LL, indicates whether all of the proof 
tree starting with the line of status PNT is to be scanned immediately, or if 
the node of status PNT is to be scanned, and then a decision made whether to 
continue or return (Diagram He). (The latter option is generally exercised 
when SCANW is used to "explore consequences". Other uses of the scan will be 
seen later.) As shown in Diagram II, before the scan is actually made, newly 
proved lemmas are noted, in order that whatever steps they make possible may 
be carried out. The generation and use of lemmas is part of the processing 
of implications (Diagrams Ha and lib). The double loop is then entered, and 
implications and equalities are processed. Note that substitutions are not 
allowed in some proof tree lines which are scanned by implications, and that 
substitution instances are not actually created until the pass through table I 
is completed. This, of course, enables related substitutions to be performed 
together, and it is also a fact that some possible substitutions will not be 
performed due to actions taken while processing implications. 

When an implication is encountered, as shown in Diagram Ha, an attempt 
is made to generate a reduction of the proof tree line being scanned by means 
of detachment . This method, used in Newell, Simon, and Shaw's LT, ^ ' is 
justified by modus ponens , and provides that a proof tree line P may be re- 
duced to a line Q if there is an entry q' ==> P 1 on table I, where P is an 
instance of P' (or of a conjunct of P') and Q is the corresponding instance oi 
Q 1 . If an addition can be made to the proof tree by this means, certain book 
keeping is done, noting that the particular proof tree line has a reduction 
created in this manner. (The special treatment given to occurrences of the 
use of detachment is part of the current heuristic determination of "pro- 
gress".) If not, and if the proof tree line being scanned does not have a 
reduction created by detachment from some other table I implication of the 
same logical class, then an attempt to generate lemmas is made. A lemma is 
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simply an instance of the consequent of the implication, which can be added to 
table I as a "known" statement by virtue of the presence of the corresponding 
instance of the antecedent (or all its conjuncts) on table I or as a verified 
line on table II. Thus the generation of a lemma is a direct use of modus 
ponens . 

Quite often, a lemma which can be generated is irrelevant from the point 
of view of the statements to be proved on the proof tree. This suggested the 
inclusion of a relevancy check to be made before adding a lemma to table I. 
With this check, no such addition is made to table I unless the lemma would 
enable one or more reductions to be added to the proof tree. Once included, 
the existence of the check makes it natural to discover cases where a lemma 
would be useful but the required instance of the antecedent, is not known to 
hold. Then this instance of the antecedent can be put on table II as the head 
of a subordinate tree, and if it is subsequently verified, the lemma will be 
generated by a future scanning pass if it still appears to be of use. In such 
an event the verified head of the subordinate tree is also put on table I. 
This is the present form of the section of SCANW which generates lemmas and 
which is detailed in Diagram lib. 

The restriction providing that lemmas are generated only when they can 
cause an addition to the proof tree is extremely important. It minimizes the 
use made of a "working forward" procedure and eliminates much unnecessary 
proliferation. For instance, suppose that G is known to be a group, and that 
a 1 and a„ are members of G. From the definition of group it will be known 
that e « G and that G is closed under composition. Thus a i a 2 ' G » a i e p e G ' 
e„a e G, and six other inclusions could be derived immediately from the clo- 
sure statement, and each of these would lead to further "lemmas". With the 
present SCANW none of these derivations are made. (If one of these facts were 
desired; i.e., on table II and unverified, detachment would have handled the 
situation.) Suppose further that G is postulated to be abelian. Then none of 
the numerous instances of commutativity will be put on table I unless it en- 
ables a specific substitution to be made in a line of the proof tree. To 
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supplement the relevancy check, a heuristic, not indicated in Diagram II and 
which will be described in Chapter IV, has been found which limits the cre- 
ation of some subordinate trees to those cases where the heads are "likely" to 
be verifiable. 

Lines on subordinate trees are of status ST unless verified or simplified, 
in which case they are of status VERST or SIM respectively, though if a re- 
duction of a line of status ST is already on table II, its original status 
will not be changed to ST. Lines of status ST are given a more restricted 
treatment than those on the main proof tree, since inasmuch as they cannot 
take on status PNT they can only be processed during scans. A second major 
restriction is that such a line cannot itself give rise to a new subordinate 
tree. This restriction to a single level of subordinate proof means that 
ADEPT cannot prove theorems requiring the establishment of a complex chain of 
subtheorems. Only a few of the problems considered required this kind of 
proof; to do them with ADEPT it was necessary to state some lemmas explicitly 
in the hypotheses. 

One point is not clear on Diagram lib, and this is the case where the 
argument L is not only not null (thereby prohibiting the creation of subordi- 
nate trees) but an actual statement. This situation arises when SCANW is 
called by the subroutine SOLVEX while attempting to obtain a "solution" for 
a table II line of the form (3a 1 )[a 1 e A & Pa ] . In such a situation, L is 
set to be "a^ A". An example will be given when SOLVEX is discussed, later 
in this chapter. 

The discussion of lemmas will conclude with an illustration. In this 
example a subordinate tree is started not because of an observed possible 
substitution (the most common case), but because of an observed possible uti- 
lization of an implication which is itself the consequent of an implication. 
Theorem: If the center C of a group G contains all 
of G, then G is abelian. 

From the definition of abelian, ADEPT quickly concludes that the theorem 
will be proved if, assuming g. and g_ are members of G, the identity 
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g g = g 9 g. can be established. This line itself suggests no continuation, 
but an examination of the terms of the first hypothesis causes an instance of 
the definition of center to be placed on table I, namely [a.e C <==> 
[a„e G ==> a a = a aj] & [a^ C ==> a^ G] . From this the scan finds that 
the implication [a„e G ==> g,a = ^ 2 & l^ could reduce the proof to showing 
g e G, if it were known that g..e C. This is not known, so g^e C becomes the 
head of a subordinate tree. The scan continues and finds that due to hypoth- 
esis a reduction of this line is g-e G. This is an assumption made in the 
course of the proof, so the head of the subordinate tree is verified, and 
subsequently the desired implication appears on table I as a generated lemma. 
Continuing the scan, the proof is reduced to showing a„ e G, an assumption, 
thus establishing the theorem. 

Diagrams lie through lie are mostly self-explanatory. Diagram lie de- 
picts the determination of substitutions, and shows clearly that the logical 
constant EQUAL suppresses substitutions in one direction. Note also that the 
associativity axiom, which can be stated using an equality headed by EQUAL2 , 
can also be stated using a term of one argument, ASSOC (which is given a 
null definition), in order that the matching may be carried out by a more 
efficient, special-purpose subroutine. The actual creation of reductions 
which are substitution instances is shown in Diagram lid, and it should be 
observed that substitutions are only made in the left half, or first argument, 
of equalities on the proof tree. This particular heuristic, along with many 
others, will be discussed in Chapter IV. This concludes the exposition of the 
scanning subroutine. 

The subroutines which add entries to table I and II, PUT0N1 and PUT0N2 , 
are outlined in Diagrams III and IV. Both routines add an appropriate prop- 
erty list to the statement being added to a table, though the details of this 
bookkeeping are not all given in the flow charts. Note that both routines 
subdivide conjunctions and biconditionals , though PUT0N2 also retains the 
original line and puts it on the proof tree in status SIM. Both diagrams 
contain references to the MODEL heuristic, to be introduced in the next 
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chapter. This is the heuristic restricting creation of some subordinate 
trees . 

PUT0N1 compiles lists of certain information in order that searches of 
table I in its entirety may be held to a minimum. It is also clear from 
Diagram III that when a statement headed by an existential quantifier is added 
to table I, an instance of it is immediately derived and added to table I — 
a process corresponding to the classical operation of existential specifica- 
tion. (Existential generalization is not possible in ADEPT without the addi- 
tion of a special axiom as part of the hypotheses.) 

There is one step on Diagram IV which involves use of the subroutine 
SOLVEX and thus, like one step in SCANW, will be explained when SOLVEX is 
discussed. Then there is mention of "built-in" axioms, and these are a heu- 
ristic feature added as ADEPT was developed. As will be seen in Chapter IV, 
this feature has been very useful, but ADEPT could theoretically run with, no 
such axioms. 

Diagrams III and IV indicate the possible ways that a proof tree line may 
become verified, thus initiating appropriate tree-pruning by reference to the 
structure reflected in the lists of line numbers of predecessors and reduc- 
tions in the property list of each table II entry. The simplest situation 
occurs when both arguments of an equality or implication being put on the 
proof tree are identical. Such a line is verified. Another case is when a 
line about to be put on table II as a reduction of some line n, is found to be 
already on table II and of status VER or VERST; i.e., verified. This causes 
appropriate tree-pruning starting with verification of line n. Otherwise, 
verification occurs only if a line appears on both table I and table II. This 
may come about in either of two ways. The line may be on table II and being 
put on table I as a newly-discovered "known" statement, or a line being put on 
the proof tree may already be on table I. The latter situation is extremely 
common, being the result of successfully reducing a statement to be proved to 
a statement already established. 

For the purpose of checking whether or not a line is on both tables, the 
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different logical constants used to express equalities may be considered 
identical. While EQUAL and FEQUAL are used to achieve certain special process- 
ing of statements in which they appear, clearly their presence should not pre- 
vent verification of a table II equality which is on table I though expressed 
with a different logical constant. The heuristic use of the extra logical 
constants does not alter the fact that they all represent equality. 

Diagram I contains a call to a subroutine called SOLVEX in order to pro- 
cess lines of the form (3a )Pa . This subroutine's effects have also been 
noticed in the flow charts for SCANW and PUT0N2 . It attempts to "solve" a 
line of the indicated form, for a value of a . As indicated in Chapter II, it 
is organized in terms of special cases. The current version will only handle 
Pa of the form P' = P" or P' «- P" where either P 1 or P" but not both con- 
tains a } , or Pa of the form a.e A & Qa 1 (or (^ & a^ A) where Qa L is one of 
the admissible Pa,'s just described. Such a line is put into the form Q'a^ = 
Q", and the conjunct a.e A, if any, is separated. The reordered line is 
checked to see if the equality can be solved for a^ by "multiplying" both 
sides by proper inverses. For instance, a a^a " = a^ can be solved to obtain 
a = a a (a )~ . (Note that this subroutine assumes that all inverses are 
defined, and therefore cannot be used for theorems about semigroups. A check 
to determine the routine's applicability, though not included in the program 
at present, could easily be made using the list of sets known to be groups 
that is created by PUTONl.) If a solution is obtained the line either will 
be verified, or the indicated substitution instance of a.e A added to the 
proof tree as a reduction of the line under consideration, whichever is appro- 
priate. If no solution is found, the line is checked to see if it is of the 
form Q'a 1 = Q'a„, in which case again it is either verified, or the reduction 
a e A added to the proof tree. If this also fails, a scan is done, with the 
arguments LL and L of SCANW "on" (i.e., not null), and if a conjunct a^e A was 
detached from the line, L is set to precisely that conjunct. Whenever a new 
line of the form (Jajp'a. is put on the proof tree in the course of this 
scan, it is checked to see if it can be solved in one of the two ways mentioned. 
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This is the call to SLVX indicated in Diagram IV. If so, the scan ends just 
as if the proof were complete, and control returns to SOLVEX, which proceeds 
essentially as though the original line had been solved for a . All the lines 
created of the form (3a,)F'a during the scan are removed from further con- 
sideration; in fact, they are printed out at that time and completely removed 
from table II. If the scan ends without creating a line which can be solved, 
control returns to SOLVEX and then to the main routine which acts accordingly, 
as shown in Diagram I. 

It remains to discuss the role of SCNX, mentioned in Diagram lib. If 
during a scan initiated by SOLVEX, a substitution could be made in a line 
(3ai)P l a 1 (i.e., in P'a..) if only a..e A, and L is "a.e A", control is passed 
by SCANW to SCNX, which allows the substitution and resets L. This is best 
described by an example. Suppose that the statement a.e A ==> ( 3 ^ ) 
[a„e B & a. = a„C] is on table I (one part of the definition of a factor group 
A = B/C), and that the line of table II being considered by SOLVEX is (3 a i) 
[a.e A & f . (a ) = a.], where a is being used as a constant. This will be 
"reordered" as ( 3 a i ) [f , ( a ,) = a ] and L set to "a..e A". (Clearly the scan 
will occur, as f. (a..) = a. cannot be solved directly.) The scan will observe 
that the substitution of a„C (or more precisely, an instance of a.C obtained 
after an application of existential specification) for a. could take place if 
a.e A were established. SCNX receives control and adds the line (3 a 2 ) 
[f 1 (a.C) = a_] to the proof tree, sets L to "a.e B", and saves the information 
that this substitution has been made. This suffices to illustrate the opera- 
tion of SCNX, but it will be profitable to continue this example further. 
Perhaps f. is a map from B/C to D/E defined by f,(a C) = f„ (a^E, for some 
map f taking B onto D. So, if a.e D/E, the lines ( 3 a 2 ) [f (a „C) = a, E] , 
(3a 2 )[f 2 (a 2 )E = a 4 E], and (3 a 2 ) [f 2 ( a 2 )E = f 2 (a 5 )E] might be generated. 
The last of these can be solved, giving a. = a (for this possibly non-unique 
a. such that f „ (a ) = a., where a = a.E), and SCANW will now return control 
to SOLVEX, which will make use of the information stored by SCNX that a.C was 
substituted for a. , and put on the proof tree as a reduction of the original 
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line (3a 1 )[a 1 c A & f 1 (a 1 ) = a 3 ] the line a 5 C e A. This "change of variables" 
procedure, which may be carried to any depth, is clearly very useful. 

In Diagram I there is also a reference to a subroutine HOMOMF, which deals 
with lines headed by FEQUAL. (The name HOMOMF was chosen because the routine 
is used in establishing homomorphisms . ) HOMOMF's task is to attempt to verify 
the equality headed by FEQUAL by successive evaluation of the two arguments 
of the logical constant; i.e., the two sides of the equality. It evaluates 
the first argument, obtaining, if successful, a list of one or more evalua- 
tions, plus the original argument. It then starts to evaluate the second 
argument, stopping with success if an evaluation of the second argument is 
on the list of evaluations of the first. Evaluation is done by a call to 
SCANW, with table II augmented by a new "tree" headed by the argument to be 
evaluated. The use of FEQUAL and HOMOMF has proved to increase efficiency in 
the establishment of equalities similar to the one involved in demonstrating 
that a map is homomorphic. As an illustration, suppose that table I contains 
the hypothesis £•,(«]) = e 5 i-e., £- L maps everything into the identity. If a 
sufficient condition for a map's being a homomorphism, stated using FEQUAL, 
is entered into ADEPT'S tables, then in the course of proving f^ homomorphic 
HOMOMF will be asked to establish the equality f^a^) « f f^ (a 2 )f ^ (a^) . The 
proof would proceed: f^a-a.) = e (evaluation of the first argument); 
f 1 (a 2 )f 1 (a 3 ) = ee = e (q.e.d.). 

It is possible to write a supervisor to use the full power of ADEPT to 
solve a theorem with many sub- theorems . Such a program is ISOLVE, which uses 
ADEPT to establish isomorphisms between groups. A routine called GENFCN was 
written, which generates a canonical relation between two sets, given the 
hypotheses concerning the two sets (GENFCN also uses SCANW), and ISOLVE makes 
four calls to ADEPT to prove that the relation is (in this order) well-defined, 
homomorphic, epimorphic, and monomorphic. (Sometimes the relation generated by 
GENFCN is well-defined by construction, as in the case when the domain of the 
relation is simply a group G. ) This program has been used to establish a 
number of isomorphisms, and these are the most impressive theorems proved by 
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the computer in the course of this project. (Incidentally, GKNFCN works for 
sets but ISOLVE assumes that the sets are groups.) 

One fact about ISOLVE is of special interest. In order to prove a 
relation f,: G — > H is well-defined, the problem & l a 2 * e c "*" 
f 1 (a,)" 1 f 1 (a 2 ) = e R is given to ADEPT. In general, to prove that ^ is 
one-to-one requires establishment of the converse implication. However, since 
f will first be shown to be a homomorphism (if fj_ isn't proved to be homo- 
morphic, or if any one of the four proofs is not successfully completed, ISOLVE 
goes no further), one may take advantage of the theorem which states that for 
a homomorphism f^ f x is one-to-one if and only if its kernel reduces to the 
identity. That is, ISOLVE is justified in presenting ADEPT with the problem 
f (a ) - e,, «*> a. - e , and in fact, this is exactly how it has been pro- 
grammed to prove f monomorphic, for this latter implication usually can be 
proved more easily. Equivalently, ADEPT could be programmed to include the 
heuristic — "when asked to prove that a function t x is one-to-one, make use 
of (the above theorem) whenever it is known that ^ is a homomorphism". 
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CHAPTER IV 

SPECIAL- PURPOSE HEURISTICS 
THE DYNAMIC PROCESS OF USING AND CREATING ADEPT 

The heuristic philosophy adopted for the ADEPT project has already been 
expounded, and certain of the program's heuristic features have become appar- 
ent in the previous chapters. The original version of the program contained 
relatively few heuristics, inasmuch as the purpose of the development of ADEPT 
was to discover the difficulties which arise in the attempt to prove theorems 
of group theory by computer, and then to devise means by which to overcome 
these obstacles. Thus it is pertinent to discuss not only the current version 
of the program, but also the development of this version, and some of the 
previous states of the program. By this, of course, is not meant a revelation 
of such data as the state of the program when the ability (SOLVEX) to handle 
problems involving certain statements headed by an existential quantifier was 
added, but rather a discussion of heuristics and features which were developed 
to cope with previous lack, of capability or efficiency on the part of ADEPT. 
Thus this chapter supplements the previous one in giving further description 
of the program, concentrating on those features whose addition was prompted by 
information obtained while experimenting with early versions of ADEPT. 

One such addition has been described in Chapter III, since it is pres- 
ently an important part of the operation of SCANW. This is the simultaneous 
performance of related substitutions, a heuristic which eliminates many previ- 
ous instances of inefficiency in favor of very natural steps combining oper- 
ations . 

Another good example, and a simple one, is reflected in Diagram I, and 
happens to represent the first difficulty which arose in this project. Ini- 
tially, the program only put instances of definitions on table I as a result 
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of processing the line of status PNT. But, as is shown in Diagram I, when 
ADEPT has explored the consequences of all such instances without success, it 
now considers all terms in the first hypothesis of the problem and obtains the 
appropriate definition instances for them. Such action was not necessary in 
the proof that the kernel of a homomorphism is a submonoid, for instance, but 
it is required in order to prove that the center of a group is abelian. In 
this example, line (1) of the proof tree, (ABELIAN C G) is reduced to the 
implication which is the indicated instance of the definition of abelian, which 
is promptly split, thus obtaining line (3), (EQUAL2 (*PROD CI C2 G) 
(*PROD C2 Cl G)) which becomes the first line of status PNT to be searched 
for terms and constants. But no explicit mention of C appears in this line, 
and since the proof requires the addition of an instance of the definition of 
center to table I, the examination of the terms of the first hypothesis takes 
place, and the proof is subsequently completed. 

Note that the implementation of this heuristic assumes the use of 
non-asterisked terms to some extent. For instance, if (CENTER C G) had not 
been included in the hypotheses of the above example, but instead the conclu- 
sion had been stated (ABELIAN (*CENTER G) G) , the heuristic as programmed 
would have failed. To remedy this, and to implement the heuristic in a more 
general form which will have the same effect independent of notation, all 
asterisked terms of the conclusion should be examined along with the terms of 
the first hypothesis. 

The difficulties which suggested this heuristic reflect a second need for 
augmenting the "working backward" approach with a certain amount of "working 
forward". (The generation of lemmas, of course, is the first and primary 
example.) In other words, a procedure which only reduces desired conclusions 
to established statements is not adequate for handling theorems of group 
theory. Some recourse must be made to the derivation of statements from the 
hypotheses, axioms, etc. Table II, the proof tree, cannot develop suffi- 
ciently without such derivations, which cause expansion of table I. However, 
such expansion must be controlled. Lemmas are generated only if they will be 
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of immediate use. In the same spirit, it is important to note that a check of 
terms in the hypotheses is not done until the usual procedures prove inade- 
quate for a given problem. 

The whole question of when to obtain what information from the condition 
and definition tables is a problem of information retrieval. In harder theo- 
rems requiring a larger base of information, this problem could become quite 
critical. Some comments on this, and some alternative methods of placing and 
using definition instances on table I, will be given in Chapter VIII. 

Another instance of a change which was made in the course of the develop- 
ment of ADEPT was also seen in the flow diagrams of SCANW, in particular, in 
Diagram lid. This is the heuristic which provides that reductions obtained by 
substitutions in an equality on table II are created by substituting only in 
the first argument of the equality. In other words, if a line on the proof 
tree has the form P ■ Q, substitutions are made only in P. The rationale 
behind this restriction is illustrated by an example. If it is known explic- 
itly that P - P lt P x - P 2 , ..., P nl " p n . p n " Qjj Q L " Q (where none of 

the expressions are identical, and no other equivalences are as yet explicit- 
ly "known"; i.e., on table I), a proof of P - Q with the heuristic under dis- 
cussion takes 2n steps. If substitutions are permitted in Q also, and no 
other heuristic is introduced to order substitutions, a proof of P = Q might 
proceed as follows: P - Q — > P, = Q — > P„ ■ Q — > 

\ ' \ 2 \ 

2 
a process which will require on the order of n steps. 

In return for the potential reduction of the number of steps, or at least 

for release from the need to discover more sophisticated heuristics, there 

would be, in theory, no cost' if all equalities were treated symmetrically. 

But such is not the case in ADEPT when use is made of EQUAL. However, even if 

all equalities were headed by EQUAL2 , there is a price to be paid in practice. 

Consider the proof that the map which takes every element of a group G into 

the identity is a homomorphism. This proof was discussed in the previous 
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chapter as an example of the use of FEQUAL. However, suppose the equality 
expressing the property of being homomorphlc Is stated using EQUAL2. Then the 
heuristic of substituting only In the left-hand side requires the proof to 
proceed: f^g^) - e - ee - f ^g^f ^g^. But this series of steps, using 
only the hypothesis f^) » 2 e and the definition of identity, requires 
planning heuristics of a comparatively involved nature. For instance, to 

reduce the line e - ^(g^V^ to the llne ee " £ i ( »l )f l < »2 ) re< * ulres ex_ 
pans ion of e to ee, which might be accomplished upon analysis of the 
right-hand side of the equality. Even more difficult to program would be the 
efficient execution of the substitutions needed to establish the final result. 
(None of the expansions would normally be allowed, since the hypothesis de- 
fining f would most naturally be stated using EQUAL, not EQUAL2, as would the 
definition of identity .) Admittedly, this problem is primarily an example of 
the worth of the use of FEQUAL, but it does show the kind of difficulty which 
can arise due to the restriction on substitutions in equalities on the proof 

tree. 

There is one heuristic which was included In the original program, and 
which has been retained because of its success. This particular feature is a 
restriction included in ADEPT'S matching subroutine, and thus was not encoun- 
tered in Chapter III. Incidentally, the matching process used is basically 
recursive and no attempt has been made to optimize It, yet It suffices quite 
well. The restriction concerns the case where a single variable is being 
matched against a line or part of a line on the proof tree. In other words, 
all occurrences of objects, of the same type as the variable, appearing, in 
some table II line are desired. In this event, the variable Is matched only 
with simple variables or constants, not with compound objects. This case is 
not to be confused with the matching of variables within a more complex ex- 
pression being matched against a line of the proof tree; such variables will 
be matched with any object of the appropriate type. Thus, if all reductions 
made possible by a table I entry (EQUAL Al (*INVERSE Al G)) are desired from 
the line (MEMBER (*PROD A2 A3 G) H) , substitutions of a 2 " for a 2 and a 3 for 
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a will be made, but the substitution of (a a ) for a.a will not be con- 
sidered. However, the Al in an expression such as (*PROD Al A2 G) may be 
matched with any member object. 

This heuristic has the obvious effect of controlling the expansion of a 
proof tree in any problem in which it is applicable. In only one theorem pre 
sented to ADEPT did it cause any unwanted effects, so it is certainly to be 
considered advantageous. (The one difficulty necessitated the explicit defi- 
nition of the inverse image of a point, as opposed to the use of the general 
definition of the inverse image of a set in conjunction with the definition 
of a unitset or singleton; i.e., a set with one member.) 

Perhaps the most important and revealing addition to the program is one 
which occurred in stages. As alluded to in the previous chapter, the first 
implementation of ADEPT had no identities or definitions "built into" the 
program. Thus simplification of a product involving the identity element 
could not be accomplished until the term *IDENTITY was encountered and the 
corresponding instance of its definition put on table I. Also, certain facts, 
such as "f (e) = e when f is a homomorphism ", had to be included with the 
hypotheses for some problems, for ADEPT is not able to set up the "construc- 
tions" necessary to prove these facts. Clearly, this forced the program to be 
quite inefficient in proving theorems. Such a simple-minded procedure does, 
however, emulate the student who is a complete beginner at group theory. 

Just as a student must assimilate simple identities involving identities, 
inverses, homomorphisms , etc., it does not take long before the problems in 
group theory demand facility with these facts if efficient proofs are to be 
found. It was clear that ADEPT could not become proficient and handle harder 
problems unless these identities could be applied more sensibly. Accordingly 
a routine was introduced (into PUT0N2 , see Diagram IV) to check each line being 
put on the proof tree to see if certain identities could be applied. As the 
number of theorems presented to ADEPT increased, it became clear which iden- 
tities should be dealt with in this way, and the routine under discussion 
expanded gradually. Besides the advantage of a more natural development of 
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the proof tree, this routine offered an opportunity to make this use of 
matching procedures more efficient. This is so because the identities to be 
matched are not arbitrary, but fixed, and a special-purpose matching routine 
can be easily implemented and used instead of the general matching routine 
used by SCANW. In ADEPT 's most recent version, matching is greatly speeded 
up by a key-word check between the identity and the line of the proof tree. 
The current set of identities handled in this way is divided into two 
classes, according to the action taken if a match is found. The first set 
causes a true simplification; i.e., a new line is created as a reduction of 

the old line, and the status of the original line is changed to SIM. This 

-1 -1 . 
set contains the facts ee <- e, ea^ <- a^, a^ <- a^, a^ ■*- e, a^ a^^ e, 

f a ~ l )~ l <- a , and e" 1 <- e. There is also a subroutine by which products 
v 1 ' 1 

of arbitrary association are checked according to these identities. Thus the 

product (a a )a _1 will be simplified to a 2 even though the binary nature of 

-1 
the operation does not allow direct application of the identity a^ ■*- e. 

(This subroutine obviously relies upon the assumption of associativity.) 

The second set of identities merely causes new lines to be put on the 

proof tree, without declaring the original line unworthy of further consider- 

.-1 _ -1 -1 
ation. In this set presently are the following facts: ( a ] a 2-' ~2 a 2 a l ' 

if f 1 is homomorphic, f,(e) «- e, f^ (a^ ) = 2 f^Up > f i^ a i a 2^ = 2 

f (a )f (a 2 ); if A/B is a factor group, a^ B = 2 (a^) , (h^^B = 2 

(a.B)(a B). Application of these identities is expediated by the lists of 

factor groups and homomorphic maps created by PUTONl. 

It is revealing to note the analogy here between what is essentially a 

transition from interpretive to compiled application of these identities with 

the corresponding development in the methods used by a student in making such 

(12) 
steps . 

The problem of deciding when a line on the proof tree has been success- 
fully processed, even though the theorem may be not yet proved, is a very 
difficult one. For a general theorem-prover , this problem is closely related 
to the question of deciding which branch of the tree it would be most 
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profitable to investigate first. In ADEPT, the problem is sharpened; from a 
given line on the proof tree reductions should be generated until and only 
until the one which is "correct" is generated. This is one manifestation of 
the goal of having the program appear as though it understands where it is in 
the course of a proof. It turns out that there are heuristics which are fair- 
ly successful in this regard for a wide range of theorems. Unfortunately, 
their effectiveness decreases rapidly when irrelevant hypotheses are intro- 
duced. Without any heuristics, even problems with a minimal set of hypotheses 
have inefficient proofs, but while the schemes about to be discussed usually 
remedy that situation, they are of limited worth with regard to overspecified 
problems. 

The "progress" heuristics used by ADEPT are few, and range from trivial 
to subtle and controversial. In the first category are rules such as consid- 
ering a line on the proof tree of the form P «*■ Q processed when an instance 
of the antecedent P is put on table I and the corresponding instance of Q 
becomes the reduction of the implication. In fact no other processing is 
allowed on such a line except for verification if the same line P «««> Q ap- 
pears on table I. Similarly, a line headed by EXISTS or FEQUAL is processed 
only by the special-purpose subroutines SOLVEX and HOMOMF respectively. 

The major difficulty occurs with lines of a general nature, e.g., equal- 
ities or lines of the form a.« A. If such a line is not verified, it never 
can be declared to be sufficiently processed unless some heuristic is employed. 
Two have been tried with ADEPT. Both provide for "progress" only after a line 
of the proof tree has had a reduction introduced by detachment. But not all 
such reductions cause "progress" to be declared. A detailed description of 
the heuristics will make this clearer. Suppose that line n of the proof tree 
is under current consideration; i.e., of status PNT. Heuristic A provides 
that when the scan is called, all entries of table II from line n onward shall 
be processed, and as soon as the line of status PNT gives rise to a reduction 
by detachment it shall be declared to need no further processing if and only 
if the line of status PNT is the lone reduction of its immediate predecessor 
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(not counting co-conjuncts If the predecessor Is a conjunction). If this is 
the case, the next table II line of status REL immediately takes on status PNT 
and the scan continues. Any line not of status PNT which obtains a reduction 
using detachment is not given any special treatment. Heuristic' B provides 
that first only line n shall be scanned, and after it is completely processed 
by all table I entries, the scan shall stop if line n has given rise to one or 
more reductions via detachment. What is more, after an instance of detachment 
occurs due to a table I implication, no further table I equalities in the same 
logical class as the implication will be used to create substitution instances 
of line n. If detachment occurs, once the scan of line n is completed control 
will be returned to the main routine, which will move the pointer down; i.e., 
"progress" will be declared. If no detachment occurs, the scan will continue 
through all the rest of table II, and any line of status REL giving rise to a 
reduction using detachment will be put in status RELl, so that it cannot take 
on status PNT at any later time. The restriction on creation of reductions by 
substitution after instances of detachment also remains in force as the rest 
of table II is processed. 

Heuristic A is clearly syntactic, being based on the structure of the 
proof tree preceding line n. It proceeds on the assumption that if the proof 
tree has been developing in a straight-line fashion, it is safe to proceed as 
though it were inevitable that the proof would continue in this fashion. Con- 
versely, if the proof is full of alternative branches, the heuristic says that 
caution must be observed. It is clear that irrelevant hypotheses render heu- 
ristic A ineffective, for extra table I entries cause excess branching in the 
proof tree, unnecessary though it may be, and thus heuristic A will not cause 
"progress" to be declared as often as it should. 

Heuristic B is the one currently in use in ADEPT, as was seen in Diagram 
II. It also gives special consideration to occurrences of detachment, but it 
does not refer to the shape of the tree. Unlike heuristic A, it takes notice 
of applications of detachment to lines other than the one of status PNT. Since 
it prevents some lines from ever taking on status PNT, unnecessary uses of 
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detachment can be harmful. Thus heuristic B is also adversely influenced by 
unnecessary hypotheses, but only if they contain implications. This slightly 
greater degree of insensitivity is of some advantage, and another factor in 
heuristic B's favor is the greater amount of processing allowed on a line of 
status PNT, so that it can continue to give rise to reductions even though one 
reduction of it has been created using detachment. To allow total processing 
to continue would be too inefficient, however, so the restriction involving 
logical classes has been introduced. An example will clarify the reasoning 
behind heuristic B, and the theorems which will be discussed in the following 
chapters will serve to indicate shortcomings of this strategy. In particular, 
the third part of the first example of Chapter VI shows the one situation 
encountered to date where the logical class restriction fails completely. 

Consider the theorem stating that the image I of a group G under a 
homomorphism f is a subgroup of the range of f . In the course of proving 
this theorem, ADEPT must show closure of the image under composition; in par- 
ticular, having fixed b.. and b„ as members of I, it must be shown that b^b„ 
is a member of I. The relevant instance of the definition of image is 
a e I <==> (3a )[a_e G & f (a ) = a. ] , which becomes two implications on 
table I in the same logical class. One of these causes an occurrence of de- 
tachment, reducing b,b e I to ( 3 a ) [a e G & f i( a o) = b i b 2^' This na PP ens to 
be the "correct" step, leading to a proof of minimal length, and is but one 
instance of advantageous applications of detachment which have led to the 
affirmation of a connection between detachment and "progress", as shown in 
the two progress heuristics. Now, the converse implication on table I leads 
to a substitution instance of b b e I that could be put on the proof tree, 
namely f. (g,)f, (g„) e I, where g and g are members of G which are mapped by 
f into b and b respectively. This branch would lead to a parallel proof, 
doubling ADEPT's efforts, and it is this kind of proliferation which the 
logical class restriction was introduced to prevent. Indeed, the vast major- 
ity of the time this particular feature of heuristic B achieves exactly the 
proper effect. (Note that the success of this procedure depends upon the 
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detachment's being made before the substitutions are determined. This will be 
insured if the user puts all definitions which specify sets by their members 
in the form a e A <==> Pa^ for PUTONl splits a biconditional P <==> Q into 
q ==> P and P ==> Q, in that order.) 

One more heuristic remains to be discussed in this chapter. It is a 
non-trivial one, though easy to implement, and it is present because of the 
nature of many definitions, namely, that they are of the form a,e A <==> Pa^ 
where Pa contains an equality of the form a] _ = Q, for some object Q. When an 
instance of such a definition is on table I, it is observed many times during 
a call to SCANW that a substitution of Q (or more precisely, some instance of 
Q) could be made for some variable or constant, say & 2> if only s.^ A were 
established. Consequently a great many subordinate trees are started on table 
II, headed by a node of this form. Many of these nodes represent highly un- 
likely possibilities, and some are not just impossible to prove, but are 
actually incorrect. To remedy this, a lattice or model of the sets involved 
can now be built by ADEPT using information stored with the definitions of 
various kinds of sets. This lattice is used only to cull out unlikely possi- 
bilities about to be put on table II in status ST. It is not used for the 
purpose of verifying a line on the proof tree, in order that all proofs may be 
developed by the operations on the statements on tables I and II. An example 
will show what this heuristic does and does not do. With the definition of a 
factor group A = B/C is stored the following information: A, B =>C. This 
indicates that C is a subset of B, and that B and A have no members in common. 
(The definition of a map f^ A — > B is accompanied by the information A, B. 
This indicates that there is no reason to assume that the sets A and B are 
not disjoint.) Similarly for a sub- factor group D = E/G of a factor group 
I/G, the definition is augmented by the information D, I=>E=»G. So if the 
hypotheses of a problem provide that A = G/H, B = G/K, C = H/K, D = B/C, and 
IC=G, ADEPT can construct the model D, A, B=»C, G=>H=>K. This lattice 

I 
will be used in conjunction with other hypotheses about variables and 
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constants. For instance, suppose a^ is known to be In H. Then the state- 
ment a.« B will be ruled out by a simple reference to the lattice, a,* K will 
be discarded as unlikely, for a general member of H tan seldom be shown to be 
a member of a particular subset of H. a.jf G will be allowed, but not automat- 
ically verified, a.c I will be allowed, since it is quite possible, and such 
a statement is often provable in group- theoretic problems (as opposed to 

a l* K >- 

This heuristic only examines lines of the form a^c A where a^ is a simple 

variable or constant, as opposed to a compound object such as a product. This 
is so mainly because of the difficulty of formulating and applying rules for 
accepting or rejecting the more complex statements. For instance, suppose 
that a- and a, are both members of 6 and H is a subset of G. Bven though it 
is reasonable to exclude statements such as ajt H with almost any specification 
of H, as long as it is a proper subgroup of G, it is not always wise to exclude 
the statement a.a.c H. To be sure, often this is also a fruitless head for a 
subordinate tree, but H might be a set such as the coset *<•■}» where J is some 
other subset of G. Another restriction on the heur is tic's applicability is 
that it is not used to examine proposed lines for the main proof tree. If it 
were, it would be impossible to use ADEPT to prove such facts as "the center C 
of an abeiian group G is the whole group." In this problem, it is known from 
the definition of center that C is a subset of G, and it must be shown that 
any member a 1 of G is a member of C. Clearly the heuristic must not be allowed 
to prevent the necessary conclusion from being placed on the proof tree! For- 
tunately, the heuristic serves its purpose quite adequately, though it Is re- 
stricted to apply only to lines of the form Sj* A about to be put on subordi- 
nate trees, where a. is a simple variable or constant. 

This feature, known as the MODEL heuristic, was implemented so that it 
can be used or not as desired. Tests with isomorphism problems have shown a 
steady decrease of about 1/3 in the length of a proof, with all lines discarded 
being indeed irrelevant. The decrease in processing time was nearly the same, 
being only slightly less, due to the nature of the information to be handled 
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in the lattice, which allows very fast processing of this heuristic. Clearly 
because of the nature of many definitions in group theory and modern algebra 
in general, this is an important special-purpose feature. 

Though the MODEL heuristic is an important addition to ADEPT because the 
single operation it performs is so often desirable, it is not a profound exam- 
ple of the use of a semantic model. Such models are not uncommon in 
theorem-proving. A simple example would be the augmentation of a proposition- 
al calculus theorem-p rover with a subroutine which tested a proposed line by 
evaluating it using one of the possible assignments of truth-values to its 
variables. The best-known example of the use of a semantic model is the 
"diagram" in Gelernter's geometry- theorem proving machine. ^ 5 ' 6 ^ This program 
and its use of a model is discussed in Appendix I. In general, heuristic pro- 
grams for proving theorems often can be improved by inclusion of some model 
of the intended interpretation of its domain, to act as a filter or guide for 
using the more syntactic procedures in the algorithm. 

Other insights have been gained during the course of this project. Be- 
cause they did not lead to the addition of important heuristics, and because 
they are best discussed in the light of particular examples, they are not 
considered here, but postponed until the next chapter, which discusses select- 
ed theorems successfully proved by ADEPT. 
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CHAPTER V 



DISCUSSION OF SELECTED PROBLEMS 



ADEPT has been used successfully to prove nearly 100 theorems. To be 
sure, some of these have been very simple problems, but many have been of a 
relatively involved nature. 17 have been proofs of isomorphisms by ISOLVE, 
each of which involves at least 3 if not 4 separate sub- theorems (depending on 
whether or not the relation requires explicit proof that it is well-defined). 
The greatest number of nodes in a proof tree was 73 (see the third problem dis- 
cussed in this chapter), and no single proof by ADEPT took more than 6-g- minutes 
of computer time, though the composite isomorphism theorems took up to 9 min- 
utes. Among the more complicated theorems not described in this chapter were 
proofs that (a A)" is the same set as Aa , and that for a homomorphism f^, 
[f " (a.)} is the same set as a..K, where K is the kernel of fj. Other lengthy 
proofs completed by ADEPT are parts of theorems which cannot be done in en- 
tirety by the present program, and will be discussed when inadequacies of 
ADEPT are considered in a later chapter. Not counting the isomorphism theo- 
rems, only 4 proofs took over 2 minutes of computer time; 4 contained 30 or 
more nodes in the proof tree. (In the intersection of these two classes of 
difficult theorems were 3 problems.) 

The particular problems discussed in this chapter are presented either 
because they serve as excellent illustrations of various features of ADEPT, or 
because the problems themselves are of interest, particularly those into which 
a special insight has been obtained through their use as examples for ADEPT. 
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Problem V-A 

One group of problems presented to ADEPT is concerned with intersections 
of subgroups: 

1) The intersection of two subgroups of a group is itself 
a subgroup . 

2) The intersection of two normal subgroups is itself normal . 

3) The intersection of a normal subgroup and an arbitrary 
subgroup is normal in the arbitrary subgroup . 

Consider the last of these from the point of view of stating it formally. 
There are many possibilities. One is to say in effect — "let I be the inter- 
section of H and J, where H is normal in G and J is a subgroup of G; prove 
that I is normal in J." This statement may appear to omit some of the con- 
tent of 3) above (e.g., G is not stated to be a group, and H is not stated to 
be a subgroup), and indeed it does if one must state explicitly all supporting 
assumptions. But the facts that H is a subgroup of G and that G is a group 
are not used explicitly in the proof of this theorem. However, the definition 
of normality implicitly assumes that the set in question is a subset of a 
group, because it only makes sense if inverses are defined. (A normal set 
itself may not necessarily be a sub group , according to this interpretation.) 

These remarks about assumptions have been made just because the proof of 
3) can be carried out using the above statement provided that it is assumed 
that all definitions make sense. This is the way ADEPT has proved this theo- 
rem. The proof is now exhibited, following which a discussion of the conse- 
quences of explicitly stating the additional justifying hypotheses is pre- 
sented. 

The hypotheses are put on table I: i) I is the intersection of H and J, 
ii) H is normal in G, and iii) J is a subgroup of G. The first line of table 
II, the proof tree, is (1) I is normal in J. From the definition of normality 
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(Circled line numbers indicate references to previously existing lines.) 

Figure 3 
Proof tree for Problem V-A 
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is obtained (2) V J 4 * 2 * I "* i*^*^* I- A«.u»ing an instance of the 
antecedent results in the addition of iv) ^c J and v) J 2 e I to table I and of 

(3) (j J 2 )J 1 ' 1 « I to the P roof tree « ***" j l aBd j 2 *™ con8tant8> StatUS PNT 
is given to this line. No steps are possible from the hypotheses on table I as 
it stands. The set constant I is identified by i) and the appropriate instance 
of the definition of intersection is added to table I: vi) a^ H 4 a^ J -O 
V I and vii) V I -^ V H 4 V J. Thus (4) Q 1 J 2 )i 1 ' l « H & ii^)^" 1 * J 
goes on table U, and it is split into (5) (j^M^e H and (6) Q^Wf « •*• 
This application of detachment to (3) causes status PNT to be given to the next 
line on the proof tree of status REL as soon as all other reductions that can 
be made from (3) are completed. Since no further steps are possible, the proof 
continues by examining (5) (since (4) has been disposed of by splitting). 
Again no progress is possible from table I as it stands. The constant H in (5) 
causes viii) a^ G i« 2 « H -* (a^a^e H, an instance of the definition of 
normality, to be put on table I because of ii). Then the proof tree is aug- 
mented by (7) if G 4 j 2 e H, which yields (8) if G and (9) J 2 « H. Work is 
now completed on line (5), and line (6) is placed in status FNT. Table I as 
it stands can cause further progress on table II (all lines from (6) to the 
end will be considered by SCANW), namely from line (9) is created (10) J 2 e I, 
which is verified (line v) on table I) and therefore line (9) is also verified. 
Line (6) must now be examined in detail, and the definition of J is added to 
table I: ix) af J -* *f G. x) i^J 4 y J ■* ^ J ' xi) e^ J, and 
xii) a s J --> a 1 " 1 e J. This leads to the following reduction of (6): (11) 
j 1 j 2 « J 4 V 1 * J. which become (12) j^. J and (13) J^ 1 . J. This completes 
consideration of line (6). The next line of status REL is line (8), and it 
takes on status PNT. Table I as it is yields (14) if J as a reduction of (8). 
Line iv) of table I is verification of this, which results in verification of 
(7), since the other conjunct of (7) is the already verified line (9). Thus 
line (5) is verified. Line (12) is the next line to take on status PNT. From 
vii) on table I is obtained (15) j^e I. and then from x), (16) J^ J & J 2 « J- 
As (16) is split, it is seen that ^e J is line (14), already verified, and the 
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lone reduction of (16) becomes (17) j ^e J. Next line (13) is scanned, yield- 
ing (18) j." e I and a reference to line (14), and thus line (13) is verified. 
Attention moves to line (15), which suggests (19) J 1 J 2 C H & J^2 e J ' This 
fruitless move is not avoided by ADEPT, and it yields (20) j-^ 6 H and a cir " 
cular reference to (12). Line (17) is now considered, and vii) on table I 
gives a reference to line (10), which is verified, thus causing a chain of 
verification leading through (17), (16), (12), (11), (6), (4), (3), (2), (1), 
and the proof is complete. The final proof tree is shown in Figure 3. Lines 
(15), (18), (19), and (20) were unnecessary. 

Now suppose that the hypothesis that H is a subgroup of G had been stated 
explicitly. Line (5) would then have two reductions — the one due to the 
normality of H (line (7) above, which is split into (8) and (9)), and another 
due to the hypothesis that H is a subgroup — namely (10 1 ) j.j.e H 4 j, eH, 
which is a useless step. (10') immediately is split into (ll 1 ) and (12'). In 
fact, not only is extra work generated, but ADEPT, with its one-pass organiza- 
tion, is unable to prove the theorem at all. The extra hypothesis confounds 
the algorithm as follows: 

After line (5) is processed, line (6) is put into status PNT due to the 
two applications of detachment to (5). Before the terms and constants of (6) 
are examined, a scan is done, and line (8) is seen to generate the reduction 
(13 ') j.e H by application of detachment using the conjunct of the definition 
of H as a subgroup which states that H is a sub set of G. Line (8) is therefore 
marked unworthy of further processing by putting it in status RELl. After 
further lines are generated by the scan, the constants of line (6) are finally 
examined, and the instance of the definition of subgroup due to the fact that 
J is a subgroup is put on table I. This suffices to process line (6), as in 
the proof just presented. But the next line of status REL is no longer line 
(8), and the assignment of status PNT is made to a later line on the proof 
tree, thus providing that line (8) never can be scanned by the axioms saying 
"J is a subgroup". The proof above shows that verification of line (8) is a 
necessary part of the proof, and that it is verified because J is a subgroup 
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of G. ADEPT has passed over this crucial line, and therefore can not produce 
a proof of this version of the theorem. 

For the problem of proving that the intersection of two normal subgroups 
is normal, the introduction of explicit but unnecessary hypotheses (namely that 
the two normal sets are in fact subgroups) causes ADEPT to do extra work but 
does not cause the program to be unable to supply a proof. The ADEPT algorithm 
is unaffected by the manner of statement of the problem that the intersection 
of two normal subgroups of a group is again a subgroup of that group. As a 
matter of fact, this proof is done without a single unnecessary line; i.e., all 
lines on the proof tree contribute to the verification of the head of the tree. 
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f^r. 



Problem V-B 

The second problem to be examined in detail is a rather simple one, 
though, like the previous example, it cannot be proved by ADEPT if given an 
unnecessary hypothesis. The proof will be discussed, and a reproduction of 
the actual output from ADEPT is provided. (Note that table I is not printed 
out in serial order, and that the symbols VERA2 and A2 are used for the sta- 
tuses VERST and ST.) Also to be noted in this example is a detail involving 
the implementation of the simultaneous performance of related substitutions. 

Theorem: A subset H of an abelian group G is normal . 

Proof: It suffices to show that if a.c G and a_« H, then (a.a )a e H. 
Assuming an instance of the antecedent, it remains to prove the corresponding 
instance of the consequent. In dealing with a particular instance, ADEPT has 
to generate new symbols internally, which are specified to be constants. The 
symbols G04088 and G04089 seen in the output are the symbols created. by ADEPT 
for this purpose. For the following discussion, A3 and A4 will be used in- 
stead. Thus line (3) would appear as (MEMBER (*PROD (*PROD A3 A4 G) 
(♦INVERSE A3 G) G) H) , or in mathematical notation, (a_a,)a ~ e H. A check of 
the terms of this line causes no action, since MEMBER has a null sufficient 
condition and definition, *PROD has a null definition, and there is no defini- 
tion of ^INVERSE in ADEPT'S table. (The latter is effectively compiled into 
PUT0N2 by means of "built-in" axioms, as described in Chapter IV.) Examination 
of the constants of (3) yields two set constants G and H which are defined by 
three statements on table I. Therefore instances of the corresponding defini- 
tions appear on table I, as indicated below (using mathematical notation): 
vi) a.e G & a e G -*> a a - a a (from ii), (ABELIAN G G)) 



vii) aj6 G & a c G — O a,*, 6 G 
viii) G is associative 



ix) e G e G J 
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(from iii), (GROUP G)) 



(and (subset h g) (and (abellan g g) (group g))) 

nil 

(normal h g g) 



(((1 . 1) SUBSET H G) ((2 . 2) ABELIAN G G) ((3 . 3) GROUP 
G) ((* . *) MEMBER 00*088 G) ((5 . *) MEMBER 00*089 H) ((9 . 
10) MEMBER (*IDENTITY G) G) ((12 . 9) MEMBER (*PROD 00*088 
00*089 G) G) ((13 . 9) MEMBER (*INVERSE 00*088 G) G) ((15 . 
9) MEMBER 00*089 G)) 

(((6 . 9) IMPLIES (AND (MEMBER Al G) (MEMBER A2 G>) (EQUAL 
(•PROD Al A2 G) (*PROD A2 Al G))) ((7 . 10) IMPLIFS (AND (MFMRFR 
Al G) (MEMBER A2 G)) (MEMBER (*PR0D Al A2 G) G)) ((8 . 10) 
ASSOC G) ((10 . 10) IMPLIES (MEMBER Al G) (MEMBFR (*INVFRSF 
Al G) G)) ((11 . 11) IMPLIES (MEMBER Al H) (MEMBFR Al G>) ( 
(ll» . 9) EQUAL (*PROD (*PROD 00*088 00*089 G) (*INVERSF 00*088 
G) G) (•PROD (*INVERSE 00*088 G) (*PR0D 00*088 00*089 G) G)) 
((16 . 9) EQUAL (*PROO 00*088 00*089 G) (*PROD 00*089 00*088 
G))) 

(((VER (HEAD) (2 NONE) 1 *) NORMAL H G G) ((VER (1) (3 NONE) 
2 NILL) IMPLIES (AND (MEMBER Al G) (MEMBER A2 H)) (MEMBER ( 
•PROD (*PROD Al A2 G) (* INVERSE Al G) G) H))) 

(((VER (2) (16 10 NONE) 3 12) MEMBER (•PROD (•PROD 00*088 00*089 
G) (•INVERSE 00*088 G) G) H) ((VERA 2 (HEAD) (5 NONE) * 12 6) 
AND (MEMBER (*PROD 00*088 00*089 0) 0) (MEMBER (•INVERSE 00*088 
G) 0)) ((VERA2 (*) (11 7 NONE) 5 12) MEMBER (*PROD 00*088 00*089 
G) G) ((VERA2 (*) (NONE) 6 12) MEMBER (•INVERSE 00*088 0) 0) 
((VERA2 (5 HEAD) (9 NONE) 7 12 6) AND (MEMBER 00*088 0) (MEMBER 
00*089 G)) ((VERA2 (7) (NONE) 8 NILL) MEMBER 00*088 0) ((VERA2 
(7) (12 NONE) 9 12) MEMRER 00*089 G) ((IRR (3) (NONE) 10 12) 
NILL MEMBER (•PROD 00*088 (*PROD 00*089 (• INVERSE. 00*088 0) 
G) G) H) ((IRR (5) (NONE) 11 NILL) NILL MEMBER (*PROD 00*088 
00*089 G) H) ((VERA2 (9) (NONE) 12 NILL) MEMBER 00*089 H) ( 
(A2 (HEAD) (1* NONE) 13 NILL 6) AND (MEMBER 00*088 6) (MEMBER 
(•PROD 00*089 (*INVERSE 00*088 Q) G) 0)) ((A2 (13) (NONE) 1* 
NILL) MEMBER (*PROD 00*089 (*INVERSE 00*088 0) 0) Q) ((VERA2 
(HEAD) (NONE) 15 NILL 6) AND (MEMBER 00*089 G) (MEMBER (•INVERSE 
00*088 G) G)) ((VER (3) (NONE) 16 NILL) MEMBER (*PROD (•PRQD 
00*089 G0*088 G) (*INVERSE 00*088 G) G) H)) 
QUIT, 

R 28.166+1.783 



Figure 4 
Actual output froa ADEPT 
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x) a 1 e G ==> a " e G (from iii), (GROUP G)) 

xi) a ± e H ==> a L e G (from i), (SUBSET H G)) 

(Line iv) is a e G and line v) is a.e H). Associativity is expressed by the 
statement (ASSOC G), allowing the use of a special matching subroutine, as 
opposed to an explicit line 

viii 1 ) a^ G & (a 2 e G & a^ G) ==> (a^^ = a^a a^). 
SCANW now causes the following lines to be put on the proof tree as two 
subordinate trees: 

(4) a 3 a 4 e G & a " e G 

(5) a 3 a 4 e G 

(6) a 3 _1 e G 

(7) a e G & a.e G 

(8) a.e G (immediately verified) 

(9) a 4 e G 

Verification of (7) or (4) would allow the consequent of vi), the abelian 
axiom, to cause a substitution in line (3). 

From line viii), (10) a (a a ) e H is obtained as a reduction of (3). 
Line (3) has not been involved in a use of detachment, and no verification of 
it has occurred, so the scan proceeds to the rest of the proof tree (through 
line (10)). This causes: from (5) because of vii), a reference to (7); from 
(5) because of xi), (11) a, a e H; from (6) because of x), verification due to 
line (8); from (9) due to xi), (12) a.e H. Since line (12) is line v) of table 
I, it is immediately verified, thus completing verification of lines (4) 
through (9), and rendering line (11) irrelevant. 

The scan continues, yielding two new subtrees because of vi) and (10): 

(13) a.e G & a.a " 1 e G 

3 4 3 

(14) a 4 a 3 _ e G ( a 3 e G being line (8)) 

(15) a.e G & a. e G, which is immediately verified since both its 
conjuncts have been verified. 

This completes the scan of the proof tree through line (10) as was indi- 
cated, and since new lines have been added to the proof tree, the scan of the 
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whole tree (lines (3) - (15)) is redone. As shown in Diagram II, no line on 
table I is used to scan any lines on table II that it already has scanned 
unless the line is an implication which is now augmented by a verified head of 
a subordinate tree it suggested. This is the case with line vi), and since 
line (4) is verified, table I is augmented by xii) a.a.e G, xiii) a e G, and 
xiv) (a~a )a_ = a, (a a,). Then, analogously, xv) a.e G and xvi) a a = 
a, a are obtained from line (7). 

Scanning line (3) with these new lines, two substitutions are found, and 
since lines xiv) and xvi) have arisen due to the same table I entry (line vi)) 
and thus are in the same logical class, these substitutions are considered to 
be related. However, they conflict, and cannot be performed together, so they 
are done one at a time. As it happens, the substitution suggested by xvi) is 
performed first, yielding (16) (a,a-)a» e H. As described in the last chap- 
ter, this is immediately collapsed into a.e H, which is already verified as 
line (12). This suffices to complete the proof. 

If line i) of table I had been (SUBGROUP H G), ADEPT would have gone off 

on a dead end, thinking line (3) to be processed after generation by detachment 

of the reduction a.a.e H & a_ e H. Efficient means of avoiding such difficul- 
3 4 3 

ties (i.e., without backtracking) are clearly of great interest, and this sub- 
ject will be approached in a later chapter. 
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Problem V-C 

Sometimes ADEPT produces a very inefficient proof even when no unnecessary 
hypotheses have been explicitly stated. This is the case for the following 
theorem: A conjugate D of a subgroup H of a group 6 is itself a subgroup of G. 
(A conjugate of a subgroup H is specified by a member a., of 6, and is the set 
such that a„e D <—> (3a)[ii H & a « («.a )a." ]; i.e., D - a iHa ~ •) The 
proof given by ADEPT for this theorem is 73 lines long, of which 49 are due to 
"false leads." It is easy to see how this happens by observing the development 
of only a small section of the proof. 

To prove D a subgroup, it is necessary to show closure under composition, 
so assuming d.e D and d_e D, dde D must be shown; i.e., (3a_)[a,« H & d-d, - 
(a.a.)a " ] is to be proved. SOLVEX quickly reduces the problem to showing 
a. ((d.d_)(a 1 ) ) c H, which is immediately changed to 
a 1 ' 1 ((d 2 d 3 )a 1 ) e H (*). 

The desired continuation is to observe that the membership of d. and d, in 
D allows substitution of (a.tOa^ and (a.h )a." for d„ and d respectively 
in (*), where h. and h. are then known to be in H. The two substitutions are 
related, and will be performed simultaneously, yielding the following reduction 
of (*): a 1 " 1 ((((a 1 h 1 )a 1 " 1 )((a 1 h 2 )a 1 " 1 ))a 1 ) c H, which immediately will be 
collapsed into hjh.e H. This soon will be verified inasmuch as H is a sub- 
group. But, from (*) are derived 3 other reductions, each of which leads to 
much extra work. Two of these arise because of associativity, and the third 
is a direct application of the closure-under-products conjunct of the defini- 
tion of the subgroup H to line (*). All of these entries are on table 1 by 
this time, and so there is no selectivity involved. A similar situation 
arises when proving the closure of D under inverses. Perhaps the greatest 
difficulty in theorem-proving is "knowing" when a proof is on the right track. 
Once again, the reader is referred to the later chapters. 
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Problem V-D 



A lesson in the use of ADEPT may be learned from the following example. 

The commutator of two members «,_ and « 2 of a group G, denoted in mathe- 
matical notation by [a^l, is defined by [a^] - ((afV Ufa- This 
concept can, of course, be defined for ADEPT, and identities concerning com- 
mutators can be proved. ADEPT is not primarily designed for manipulation of 
identities, and all but the simplest of these requires a large amount of com- 
puter time, though there are some fairly obvious heuristics which could be 
applied to this very special problem area to remedy this. Such digressions 
are not relevant to the ADEPT project, but insights from one particular simple 
identity problem happen to be valuable in general. The problem is: 

[a l ,« 2 ]" 1 - [« 2 .« 1 1- 

Although either the notation (COMMUTATOR A3 Al A2 G) or 
(♦COMMUTATOR Al A2 G) may be employed, assume the latter is used. The prob- 
lem then may be stated in many ways. One is to give ADEPT the conclusion 
(EQUAL (INVERSE (*COMMUTATOR Al A2 G) G) (*COMMUTATOR A2 Al «). Remembering 
that no substitutions are made in the second argument of an equality on the 
proof tree, it is seen that this will produce a fairly lengthy chain of sub- 
stitutions, resulting in a correct proof, but a proof made quite long due to 
the application of the associativity axiom. No improvement is obtained using 
FEQUAL. For this problem there is a way out, however. A sufficient condition, 
known to ADEPT, for INVERSE, is given by »a 2 is the inverse of ^ if a^ - e". 
This can be used if the usual asterisked notation for inverse is not employed; 
i.e., if the conclusion of the problem is put in the form: (INVERSE 
(♦COMMUTATOR A2 Al G) (*COMMUTAT0R Al A2 G) G). Doing this works very well, 
simply because related substitutions are made simultaneously, so that the 
reduction of the application of the sufficient condition is (((a^ a^ )a 2 )a 1 ) 
(((a _1 a " 1 )a 1 )a 2 ) - e, which is immediately collapsed into e - e, a line 



75 



which is verified as it is put on the proof tree. This is a very striking 
example of the value of doing related substitutions simultaneously and per- 
forming certain operations on a line, such as this "collapsing", at the time 
of its placement on the proof tree. 

The point of all this is that different ways of doing problems are often 
not too similar in their demands upon the resources of computer time and mem- 
ory. Even if ADEPT were much more highly developed than it is at present, 
including possession of the ability to choose the "correct" path of the proof 
tree more often, it well may not be able to take the statement of a problem 
and transform it into the most advantageous form. ADEPT should be able to 
solve the problem in any form, sooner or later, but the user can be asked to 
utilize some ingenuity in setting up the form of the hypotheses, conclusions, 
and definitions. ADEPT is flexible enough to allow significant experimentation 
along these lines, perhaps to the end that future programs will be able to 
take this burden from the user, 
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Problem V-E 



1 -1 
g 2 

-1 



The following is a problem that has been considered by other theorem-prov- 
ing programs: a group., every element of which is of order 2 , is abelian. 
ADEPT has no provision for numbers, but for an element a^ to be of order 2 
simply means that it must satisfy the equation a^ = e. One would like to 
give this problem to ADEPT and have it come up with a proof. But, faced with 
proving gl g 2 = g^, the program has no idea how to proceed. None of the 
axioms can be applied to the statement g^ = g^- Now it turns out that a 
simple proof of this theorem, requiring no "construction," follows from the 

■I " i. 

r „ a - o that a = a . The proof proceeds: g,g~ - gi go 
consequence of a^a^ - e tnac a^ a^ • j-"^ v r i z i e- 

(g g ) _I = g g • ADEPT P roves this theorem s iven the h yp° thests a l = 2 a i 

It does so with very little wasted effort, due to the restriction on matching 
simple variables and the immediate simplification of expression such as 

/ -v 1 

(s l ) • 

Of course, this is hardly fair, for in order to have ADEPT prove this 
theorem, the user must know how the proof proceeds! Clearly ADEPT has to be 
more clever, though a user who was very familiar with the program might real- 
ize which of the two ways of stating the "order 2" hypothesis was preferable 
(that is, if he were aware of both alternatives). One way to approach this 
difficulty would be to program into ADEPT a feature whereby insertion of the 
fact a a = e on table I causes the consequence aj_ = a^ to appear. This 
would have to be programmed carefully, so that very little time would be spent 
checking all lines being put on table I to see if they are of this form. Such 
a feature would properly be called a heuristic. 

Another approach would be to make explicit use of a lemma, a^ = e ==> 

a = a _1 . Under which conditions this lemma would be put on table I is a 

d l 1 

difficult problem. In addition, even if this lemma were not brought onto 

table I to "confuse" proofs of other problems, its use in this problem causes 
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a proof of twice the length, requiring four times the time of the original 
proof with the simple hypothesis a. = a 

The empirical approach to theorem-proving demands the incorporation of 
such lemmas or heuristics as the one described above. There are certainly 
direct analogues to the inclusion of such facts in ADEPT in the learning pro- 
cess of a student of group theory. This is in contrast to specification of a 
"complete" proof procedure (e.g., Herbrand's), which has a different orienta- 
tion than that of a student. It is known that complete procedures are very 
prone to fatal combinatorial explosion. The question is: Can an empirical 
approach handle enough special cases efficiently to surpass the other approach? 



78 



-A i&4£&^&&$@?- i ~ 



! .««ew^5Ss##*«'-f h a»w ! P^ Si - 



Problem V-F 

One of the first problems considered in conjunction with ADEPT was one of 
the most troublesome: The kernel of a homomorphism f^ reduces to the identity 
if and only if f. is one-to-one . This theorem can be divided into two parts, 
and, defining a unitset to be a set with a single element, details of this 
problem will now be considered. 

Let f. be a homomorphism from 6 to H, K its kernel, E the unitset con- 
taining the identity of G, and first assume that K is a subset of E; i.e., K 
reduces to the identity. To be shown is that f^ is one-to-one. A sufficient 
condition for f 1 to be one-to-one is that if ^(a^) " f, C^)' then a l " a 2° 
The usual proof proceeds by contradiction; if f^*^) " f i^ a 4^ does not ^P^ 
a- - a for some a 3 and a^, then f 1 (a 3 a 4 " ) " f ].( a 3> f i< a 4>~ ( since f i is 
homomorphic) - e^, so » 3 \' 1 e K. However, a^" * e G since a 3 f* a^, contra- 
dicting the assumption that K reduces to e„. 

ADEPT has no provision for proofs by contradiction, but a reformulation 
of the sufficient condition is all that is needed to allow ADEPT to solve this 
problem: f l is one-to-one if f 1 (a 1 )f 1 (a 2 )" - e R implies a^" - e^ This 
is clearly equivalent, and the proof proceeds straightforwardly: a^ » e G 

if a 3 a 4 _1 « *> if a 3 \" 1 ' K > lf £ i<*3*4~ l) " V but f l (a 3 a 4~ ) " 

f (a )f (a , -1 ) - f,(a )f (a,)" 1 - e R . Thus the formulation of the sufficient 

condition is important, and it is reasonable to expect a user of ADEPT to 

supply appropriate entries to its tables, just as in Problem V-D it was argued 

that the user should be expected to employ ingenuity in choosing the form of 

statement of a theorem. 

For the converse, it is the definition of one-to-one that is important, 

and indeed this half of the theorem is more treacherous. Here, assuming f^ is 

one-to-one, it is desired to show that K is contained in E. So assume kj« K 

and attempt to prove k.e E; i.e., kj^ - e . If the definition of one-to-one 
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used is that if f,(a.) = f (a ) , then aj^ = a , an infinite loop is generated: 

k L = e G if f 1 (k 1 ) = f^eg) if f^f^)) = f^f^eg)), etc. This loop could 

be stopped artificially, but that seems to be an unnecessary extra check to 

add to the program. Alternatively, an effort could be made to make sure that 

the argument of a function was in its domain, but this would not help in the 

case G = H. If the definition of one-to-one is: f . (a. )f .. (a.) = e , ==> 

a,a ~ = e , ADEPT will have no "ideas" as to how to proceed. But, the con- 
L £. G 

nective FEQUAL is available, and the definition of one-to-one can very natural- 
ly be phrased f.(a..) = f..(a-) ==> a.. = a. , and the proof proceeds: k- = e^ 
if fi(k,) =, f,(e ). Evaluating the left-hand side: f i( k i) = e H sinc e k e K. 

Evaluating the right-hand side: f. (e ) = e since f, is homomorphic. That 

L G n 1 

completes the proof of this theorem, which is another example where the forms 
of definitions, etc. are critical. 
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Problem V-G 



Among the proofs of isomorphisms produced by ISOLVE (see Chapter III), 
none contain any surprises. The proofs have been of isomorphisms of a trivial 
to a relatively complex nature. The simplest required ISOLVE to go through 
the motions of proving a group G isomorphic to itself. As a related problem, 
GENFCN may be overridden, and the relation f 1 <a 1 ) = ^i a i) g l for some S l e G 
inserted, and this will be shown to be an isomorphism. Similarly, for G 
abelian, f (a ) = a _1 can be shown to be isomorphic by ISOLVE. 

The most complicated isomorphism that has been done by ISOLVE is to prove 
that G/H is isomorphic to (G/K)/(H/K). This statement only makes sense for the 
case that K and H are normal subgroups of G, and ADEPT is able to prove the 
justifying fact that, under these hypotheses, H/K is a normal subgroup of G/K. 
To prove the isomorphism, the assumptions of the normality of K and H need not 
be stated explicitly, as they play no further role in the proof. The entire 
proof of isomorphism, including the generation of a map from G/H to (G/K)/ (H/K) 
by GENFCN, took 7fc minutes of computer time and 40 entries on the proof tree. 
Of these, 7 were used in the proof that the relation is well-defined, 18 in the 
proof that it is homomorphic, 12 in the proof that it is onto, and 3 to prove 
that it is one-to-one. 2 lines of the proof that it is well-defined and 6 
lines of the proof that it is homomorphic were irrelevant; i.e., useless 
branches. (Incidentally, if GENFCN is asked to provide a relation from 
(G/K)/ (H/K) to G/H, the corresponding proof of isomorphism takes 9 minutes 
of computer time and 44 lines.) Without the use of the MODEL heuristic, the 
same proof would have been generated, but with an additional 30 to 40 irrele- 
vant lines at a cost of 3 to 4 extra minutes of computer time. 

Other isomorphisms established by ISOLVE include that of G and K when ^ 
is an isomorphism from G to H and f 2 is an isomorphism from H to K; that of G 
with G/{eJ; that of G/(Ker f ) with f.(G) for a homomorphism f^ and that of 

G Li- 
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G/f," L (K) with H/K for an epimorphism f. from G to H (where K is a normal 
subgroup of H). ADEPT is able to prove all justifying theorems to show that 
these problems make sense — for instance, in the last example, that f^ (K) 
is indeed a normal subgroup of G. ISOLVK does not automatically go through 
these justifying theorems; it assumes the problem to be well-defined. But 
ADEPT has been given the associated theorems which establish this, and it has 
proved them. 

ISOLVE may also be used to establish theorems about other relations. For 
instance, rather than give ADEPT separate theorems, ISOLVE may be run in an 
attempt to "prove" that the relation (generated by GENFCN) ^fc^) " »j_H from 
G to G/H 'is an "isomorphism". ISOLVE will produce proofs that the relation is 
homomorphic and onto, and will, of course, fail to show it to be one-to-one. 
Another such example is the canonical relation between G/K and f 1 (G)/f 1 (K) 
which also is an epimorphism but not an isomorphism, for a general epimorphism 
f_. This relation must also be proved to be well-defined, as opposed to the 
map from G to G/H which is trivially well-defined by its defining equation. 

It is interesting to observe that though the term *LCOSET (which stands 
for "left coset") appears often in the statement on the proof trees of the 
isomorphisms involving factor groups, its definition, which is not needed in 
order to establish the isomorphisms, is never put on table I by ADEPT, thus 
saving a great deal of effort. This is a good illustration of why it is not 
desirable to go to the tables for instances of definitions of all terms that 
appear in the course of a proof regardless of whether or not they appear in 
lines of status POT. 

To conclude this chapter, an insight gained from ISOLVE should be men- 
tioned. The selective introduction of instances of definitions; i.e., the 
controlled growth of table I at the start of a problem, mentioned in Chapter 
III, could, of course, be used by ADEPT in each of the 4 sub-theorems handed 
to it by ISOLVE. This involves, in general, obtaining the definition of each 
term in the hypotheses of an isomorphism theorem 4 times. It has been found 
that the class of proofs involved in establishing isomorphisms is not sensitive 
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to selective growth of table I, and consequently it is more profitable to 
have ISOLVE call ADEPT with the instances of definitions of all terms in the 
hypotheses already on table I. Thus ISOLVE can consult the table of defini- 
tions once for all U sub- theorems . The determination of the relative merits 
of such trade-offs is one of the types of insights into proving theorems about 
groups by computer which can easily be obtained by experimentation with ADEPT. 
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CHAPTER VI 



LIMITATIONS OF THE PRESENT PROGRAM 



The previous chapter, in addition to illustrating proofs produced by 
ADEPT, has also served as an introduction into the limitations of the present 
program. The remainder of this report will be devoted almost entirely to dis- 
cussions of various types of theorems with which ADEPT cannot cope. These 
types fall into different classifications. For instance, there are those 
which ADEPT cannot do simply because it is not broad enough. Such theorems 
include facts involving the introduction of numbers, say as orders of finite 
groups. Another such group is theorems requiring statements using double 
existential quantifiers, which cannot be handled by SOLVEX at present. These 
theorems are not significantly harder in any sense of the word; they simply 
require additional subroutines for ADEPT. 

Another class of theorems might be called the overspecif ied class. Such 
a grouping has no mathematical basis in group theory, but it is a label to be 
applied to those theorems with extra hypotheses with which ADEPT performs so 
erratically, as seen in the last chapter. As theorems become more complex, 
even those with minimal sets of hypotheses will cause similar difficulties for 
ADEPT. A decision must be made whether or not this can be overcome by heuris- 
tics, or whether a completely different approach to theorem-proving will 
ultimately have to be adopted. 

There are also theorems which require new and different methods of proof. 
In contrast to those which require introduction of additional types of con- 
cepts, these theorems are often significantly more difficult. Mechanization 
of proof by contradiction, use of constructions in proofs, etc., all must be 
considered. Finally, it is important to ask if the reasoning used in advanced 
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theorems of group theory is fundamentally different from that used In ele- 
mentary theorems? Is it the case that it is not a matter of extending ADEPT 
to be much, much more sophisticated, but rather a matter of implementing an 
entirely different form of human thought process, though perhaps in conjunction 
with a more sophisticated ADEPT? The logician is tempted to rely upon the 
theoretical fact that all theorems of mathematics follow or issue from the 
basic axioms of the system; the pure mathematician has reservations for he 
knows that intuition and other rather illogical procedures play a large part 
in his advanced work. The choice of methods with which to prove an advanced 
theorem is an excellent example of a step which cannot be done by simple pro- 
cessing of hypotheses, conclusion, and relevant definitions. 

All these considerations must be taken into account when discussing the 
future of theorem-proving by computer, and when discussing the level to which 
a program like ADEPT for proving one class of theorems should be perfected. 

The class of theorems for which ADEPT is best suited should be clear. 
ADEPT produces proofs which follow directly from given axioms, lemmas, and 
definitions. To some extent this can be augmented, perhaps by such methods 
as proof by contradiction. But clearly the approach used in ADEPT is 
ill-suited to many methods of proof, such as construction of counter-examples, 
a procedure certainly in the repertoire of any good group theorist. 

Before continuing this discussion, it will be profitable to consider 
specific problems of two kinds. The first kind includes problems that ADEPT 
either can "almost" prove, or that are closely related in content to problems 
that ADEPT has proved. The second type is a group of problems of a different 
nature, involving new concepts and methods, which have been considered in 
detail with proof by ADEPT in mind. 
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Problem VI-A 

It would certainly appear that ADEPT should be able to prove that the 
center of a group is a normal subgroup . However, it cannot, and the reasons 
why are instructive. 

Proving that the center is closed under products is done easily, by a 
version of the following argument: Let C be the center of a group G, and let 
Cj^ and c 2 be members of C. To show c.c.e C requires proving that (c,c 2 )g 1 - 
g 1 (c 1 c 2 ) for g L e G. But (CjC^gj - c 1 ( c 2 8 i) * c i^6 l c 2 ^> sltlce c 2 « c > and 

C 1^ 8 1 C 2^ * ^ C 1 8 1^ C 2 = ^ g l°l^ c 2 * 8 1^ C 1 C 2^' 8tnce c i* c * The** is inefficiency 
in ADEPT'S actual proof, to be sure, but it proceeds straightforwardly. 

The next step is to prove closure under inverses. Assuming Cj« C, c " e C 
must be proved, or Cj^ g^ » g c. for any g.e G. There is more than one way 
to do this, but no way that does not require a bit of ingenuity. One method 
is to use a "construction"; i.e., the reverse of the procedure of simplifica- 
tion. This proof proceeds: Cj" g L - c^ g^c^ - c^ Cjg^" 1 - g^" 1 , 
since c^ C. This approach requires clever heuristics to introduce the appro- 
priate construction. An even neater proof is as follows: c." g, ■ 
(g^ c^) ■ ^ c i g i ) " 8 i c i • This proof depends upon the identities 
a l~ a 2 " (a 2~ a l )_ and a l a 2~ " ( a 2 a i" 1 )" 1 * Now ADEPT "knows" the identity 
^ a l a 2^ = a 2 a l ' as ex P lained in Chapter IV, and this suffices to provide 
one of the equalities needed for this proof, for (e.g." ) matches (a,a 2 )~ , 
i.e., is of that form. But c, g. does not match a_~ a." ; such a match re- 
quires an explicit intermediate step — c ~ g.. « c " (g " ) to obtain 

the proper form. 

It is not profitable for ADEPT to explicitly check every line against the 
identity a^ a 2 ■ (a 2 a^) , even though it seems natural to check for in- 
stances of the identity (a^)" - a^a^ 1 . Neither is it profitable to use 
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a = ( a ~ 1 )" 1 as a symmetric equality. (Remember that it is written now using 
EQUAL, not EQUAL2 . This is an example where extra programming is dictated to 
make possible the reverse substitution, rather than opening the problem up to 
a proliferation of substitutions by using EQUAL2.) So again heuristics need 
to be discovered to enable ADEPT to prove this theorem without introducing 
provisions in the algorithm which would virtually insure large increases in 
useless effort for all proofs in general. 

Another mishap occurs when trying to prove that the center is normal. 
Assuming c.e C and g.e G, the desired conclusion is (g 1 c 1 )8 1 « c> "^^ " ob " 
vious" step to ADEPT is to proceed as in the first two parts of this theorem, 
namely to show that ((gjC^g^ 1 ^ = g 2 ((gjC^g^ 1 ) (*) for any %f G, a 
reduction obtained by detachment, using the definition of center . And the 
algorithm provides that no other use of the definition of center can then be 
made with respect to the line (B^]^" 1 * C (see Dia 8 ram T1 and the di scussion 
of heuristic B for "progress" in Chapter IV). For most theorems, this re- 
striction of ADEPT is well-justified, for most theorems progress as the first 
part of this one did. To prove c^e C, ADEPT showed (c^^ - g^CjCj), 
and to carry out a parallel branch starting with c^e C is needless prolif- 
eration of effort. However, to show normality the simple proof is to proceed 

(g i c i )g i" le c if ^iSi^i" 1 ( * c l ) e C * Indeed > t0 P rove ( *> re< l uire8 either 
some kind of planning, a construction, or substitution in both sides of (*) , 

none of which are presently possible in ADEPT. 

Thus, though ADEPT has enabled the computer to produce many proofs, em- 
phasis on those types of problems which give it trouble indicates that a rad- 
ical re- examination of the whole philosophy of ADEPT "s design may be necessary. 
Or perhaps the difficulty is that the proper heuristics have not yet been 
isolated. 
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Problem VI-B 

There is a second problem on which ADEPT fails that is not dissimilar 
from the preceding one. Consider the theorem that the map f . (a ) = a " from 
a group G into itself (the map taking every element into its inverse) is 
homomorphic if and only if G is abelian . One half of this gives ADEPT no 
trouble; in fact for G abelian, the map in question is isomorphic and ISOLVE 
proves this. 

The converse is not hard, but requires ingenuity of the same type as that 
needed in the second part of the previous theorem. To show G abelian, ADEPT 
must establish the identity g g = g g under the hypothesis that f is 
homomorphic. Completing the proof requires use of a "construction"; in 
particular, a substitution of the form a, «- (a ~ )~ . Note that the execu- 
tion of such a step would require a message to the simplifying routine associ- 
ated with PUT0N2 , insuring that the new line will not be simplified. The proof 
proceeds: g^ = ((g^)" 1 )" 1 = ^(g^)' 1 = (f 1 (g^f x (g,,))" 1 = (g^g/ 1 )" 1 = 
((g2§]_) ) = Sog-i* (Close examination of this proof reveals that the hy- 
pothesis defining the map f. must be written using EQUAL2 . The converse of 
this theorem, showing f to be an isomorphism when G is abelian, requires only 
EQUAL in the defining equation of the map.) 

Further discussion of this theorem would only parallel comments made 
while discussing the last problem. However, in Chapter VIII some possible 
means of overcoming difficulties such as these will be suggested. 
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Problem VI-C 



It is a theorem of group theory that f^K)" 1 = K for any subset K of f 's 
domain, if ^ is a monomorphism. The inclusion Kc= f^K)" 1 is trivial and is 
true for any homomorphism f^ ADEPT proves it with ease. The converse is 
much harder, and appears to demand an approach not possible with ADEPT. At 
least, the most obvious proof to the author is one which is ill-suited to 
ADEPT'S algorithm. It seems to require a controlled "working forward" ap- 
proach which cannot be supplied by the "lemma-proving" procedure which is made 
possible by lines of status ST on table II. Briefly, the proof proceeds as 
follows : 

Assume a^ f^K)' 1 . Then f^) e f ] _ (K) , which, by the definition of 
ima£e, means that f^) = f^) for some ^ K . But ^ ig one . to _ one) SQ 
a 2 = 3]L and therefore a^ K, which was to be shown. 

Now consider the problem as ADEPT sees it — given the assumptions and 
assuming a^ f^K)" 1 , the line to be proved is a^ K. But K is an arbitrary 
subset, and in addition no substitutions are possible for a^ so ADEPT is 
unable to continue. From the point of view of working backwards, the above 
proof depends on the implication Oa^e K & a ± = ^ J ==> v K . However, 
even if ADEPT "knew" this fact, SOLVEX would attempt to "solve" the line 
(3a 2 )[a 2 e K & a L = a 2 ] for a 2 , and would come up with the "reduction" a e K, 
which is no help at all. Thus determination of a candidate for this variable 
a 2 must proceed by more devious methods. The fact that the definition of 
f L (K) causes a^ f^K)' to imply an identity involving f^) as opposed to 
^ may be able to be used as the "tip-off" that the usual procedures of ADEPT 
will not suffice for this proof. 
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Problem VI-D 



The last problem which will be discussed to illustrate limitations of 
ADEPT for proving theorems of the type it is best suited to prove is the nec- 
essary and sufficient condition for equality of two (left) cosets a^H and a 2 H: 
a H - a H <»> a ? e H. This theorem is an example of how everything can go 
wrong '. 

First, consider proving a~ a.e H from the equality of the cosets. ADEPT 
has no "ideas" except to attempt to show a^^ and a 2 to be members of 8jH or a 2 H, 
which is suggested due to the form of the definition of left coset, for if any 
of these lemmas could be established, a substitution would be possible in the 
original line. Now a l and a, are general members of a group G of which H, a^H, 
and a H are subsets. Therefore the MODEL heuristic will not allow these candi- 
dates for heads of subordinate trees to appear on table II. Fortunately, the 
user has the option of not using the MODEL lattice (though he may not know 
when not to use it), and at least it is possible to get ADEPT to proceed with 
this proof. 

Since a.H and a,H are the same set according to the hypotheses, each of 
these four heads of subordinate trees is a reduction of one of the other three. 
For example, to show a^e a„H it suffices to show a^ ajH. The fact that 
a,e a.H for any a, is a simple one, and ADEPT can prove it quickly if given 
it as an explicit problem. However, as a line of status ST, it cannot be 
proved, for the proof that a e a 3 H requires "solving" by SOLVEX the line 
(3a,)[a,e H & a. - a,a,]. As shown in Diagram I, only lines of status PNT 
are ever processed by SOLVEX, and a line of status ST can never take on status 
PNT. Thus the present version of ADEPT is stymied. 

One possibility, which would not cause great amounts of additional effort 
per proof, would be to try to "solve" every such line put on table II (i.e., 
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always trying a call to SLVX in Diagram IV). If the line were not immedi- 
ately solved, it would not be scanned as described in Chapter III unless it 
were of status PNT. The example in this theorem can be solved immediately, 
yielding a, a,e H which quickly reduces to e e H, which could be verified 
from part of the definition of subgroup . But again trouble develops, for if 
H were explicitly assumed to be a subgroup, the original conclusion would be 
reduced to showing a 2 " € H & a^e H, which is certainly a fruitless attempt at 
a solution. Furthermore, this reduction is derived by detachment, and thus 
a. a e H would be removed from further consideration, and by the time the 
status ST lines were verified, the substitutions in the original conclusion 
could no longer be made, since the pointer would have been moved down (i.e., 
status PNT would have been assigned to some subsequent line of the proof 
tree). 

It has already been observed in Chapter III that the design of ADEPT, 
and in particular, the restricted processing given to lemmas, is not oriented 
to proofs which must go back many "levels" to original definitions. In this 
spirit one would suggest that the user include with the specific hypotheses of 
this theorem the lemma a_6 a H. Even with this approach, the user can run 
afoul! The use of asterisked terms happens to be critical in this instance. 
Assuming that the user inputs the lemma in the form (MEMBER A3 
(*I£OSET A3 H G)) (where A3 is a variable), the proof will be completed easily. 
Without the asterisked term, the user must state the lemma as a translation of 
"let A be a left coset a H; then a e A", and this would cause an undesirable 
application of detachment to the original conclusion. Since a.e A matches 
a 2 a.e H, the proof would be "reduced" to showing that H is the coset 
(a_ aj)H. This inference is completely valid, and the new line does happen 
to be provable, but only with great effort. Thus there is a definite need for 
the use of the asterisked term in this problem.' 



The converse of this theorem is really a conjunction, namely to prove that 
a^H G. a_H and a„H c a.H if a„ a^e H. This proceeds normally, and requires 
explicit assumption that H is a subgroup. One inclusion parallels the other 
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in its proof, though ADEPT has no way of detecting this and profiting by the 
observation. The parallel is not quite complete; proving the inclusion 
a H<= a H comes down to observing a^ a^ H, which, while implied by a., a^ H, 
is not derivable by ADEPT. This situation is analogous to the one in the first 
problem described in this chapter, and no more need be said here. 

This discussion of this last theorem may seem to be lengthy and to place 
undue emphasis on the limitations of ADEPT. However, despite the inept per- 
formance just outlined, ADEPT did manage to prove many theorems! But all 
heuristics break down sooner or later, and a clear discussion of the impli- 
cations of ADEPT'S organization was certainly in order. Shortly, discussion 
will resume on the worth, limitations, and future of ADEPT, including possible 
corrective modifications which could be made, but first, problems of another 
class should be discussed — those with new features to which ADEPT could be 
adapted. After all, future work must take into account more kinds of theorems 
and harder theorems, as well as theorems very similar to the ones already 
discussed. 



t Note that a more general statement of the lemma, such as e G e B ==> 
a e a B, could lead to still another undesirable effect if it were not stated 
using the asterisked term *LCOSET. If the table I entry were (IMPLIES (AND 
(MEMBER (*IDENTITY G) B) (LCOSET A A3 B G)) (MEMBER A3 A)), then any occurrence 
of detachment using this implication would give rise to a table II entry with 
a variable, namely B. While variables in table II entries are not forbidden, 
they can lead to an entry which is difficult to prove or which has no interpre- 
tation. Here a proof tree line a^e H could be reduced to a conjunction, one 
conjunct of which is e_e B, for a completely unspecified variable B. Thus the 
user must beware of implications P ==> Q on table I which have the property 
that if a table II entry Q 1 leads to a reduction P' using detachment, then P 1 
contains (free) variable; i.e., in creating the instance P 1 using the informa- 
tion obtained in finding the match of Q 1 and Q, constants were not substituted 
for all of the variable symbols of P. This situation can be avoided by making 
use of the well-known equivalence (used in the reduction of statements to 
prenex normal form): (Va^p^ ==> Q] £ (3a 1 >Pa 1 ==> Q. In the above 
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example, the lemma could have been stated (IMPLIES ( EXISTS B (AND (MEMBER 
(•-IDENTITY G) B) (LCOSET A A3 B G))) (MEMBER A3 A)). With this statement, 
trouble is averted, though, of course, an extension to SOLVEX would be nec- 
essary to actually handle any reductions generated by detachment using it. 
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CHAPTER VII 



EXTENSIONS OF ADEPT 



One method of proof which ADEPT does not use is mathematical induction, 
and it was this method which was considered in most detail as a specific ex- 
tension of ADEPT. Theorems which are proved naturally by induction are not 
too common in group theory, even when groups of finite order are considered, 
but enough were isolated in order to justify this section of the investigation. 
Most involve terms with a varying number of arguments, such as a finite prod- 
uct or intersection. Consequently, important questions of notation arise. It 
is simple enough to define a new type of variable or constant to represent 
integers, and N, Nl, .... N9 are used for the integer symbols, which may be 
variables or constants. Having done this, how shall the new concepts be 
represented? 

The easiest concept to represent is the iterated product of the same 
n terms 
variable — a.. ..a' or (a.) n . Using an asterisked term, this may be written 

(*EXP Al N G), where G is the set on which the composition is defined. The 
general iterated product is more difficult. Consider the product a^...a , 
which is to be denoted by the term *GPROD with some appropriate set of argu- 
ments which will include G, the set with the composition. Any notation used 

for this must be flexible enough to allow easy statement of such products as 

f 1 (a,)...f,(a ). It must also be easy to express the fact that if n is 1 in 
1 1 1 n 

either product, the generalized product collapses to a single object. But 
this object (a. or f,(ai) in the examples given) is subscripted . It is impor- 
tant to notice that the subscripts of the letter "a" in the following two ex- 
pressions are not used in the same way: (1) a^ G & a 2 e G -■*> a^' G '» 
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(2) f.(a....,a ) ■ f,(a-). ..fj(a ). In (1), the subscripted letters are used 
as symbols for simple variables. The particular integers used as the sub- 
scripts have no significance. In (2), the subscripts are used to specify an 
ordering of the variables. Indeed, in (2), the unsubscripted letter is a 
meta- symbol denoting any variable/constant symbol, and the subscript yields 
information on the order and number of these symbols. 

Retaining the spirit of Polish notation, the term *SUB is introduced, to 
be used whenever a subscript is used to specify ordering, etc. A variable 
symbol can easily play the part of the meta-symbol, and a tentative represen- 
tation for a,... a is (*GPROD (*SUB A9 1) (*SUB A9 N) 6). 
1 n 

This is not satisfactory, and in order to see this, consider the equali- 
ties a 1 ...a n , * (a 1 ...a n )a n , and ^(a^- •• f 1 < a n «) " I f !<*!_)• • ^l^n^l^n'*' 
(n' is the successor of n, ordinarily n + 1.) These are both instances of one 
general fact, which should be expressible by one statement. However, in the 
corresponding representations for these identities, the occurrences of 
(♦SUCCESSOR N) are at different levels of the expression, and the matching 
routine will not suffice. Stating the situation in another way, it is impos- 
sible for ADEPT to have a schema of the form P(n) - Q(n) where n occurs at 
arbitrary levels in the syntax of P. 

One possible notation which will at least suffice, though it is cumber- 
some, is to include as arguments of *GPROD: 

i) the subexpression of ii) which is the subscripted 
subexpression of the general element; 
ii) a symbol acting as a meta-symbol for the general element 
of the product; 
iii) the number of elements in the product; 
iv) the set upon which the composition is defined. 
Similarly, a single subscripted object is written using as arguments of *SUB: 
i) same as i) for *GPROD; 
ii) same as ii) for *GPROD; 
iii) the value of the subscript. 



95 



The first argument mentioned is present to allow for a distinction between 
f l( a n ) and [^(a)]^ Thus f^). . .f^,) = [£ 1 (» 1 )."f 1 (« B )l £ l^ l) Can be 
written: (EQUAL (*GPROD Al (Fl G H Al) (SUCCESSOR N) H) (*PROD (*GPROD Al 
(Fl G H Al) N H) (*SUB Al (Fl G H Al) (SUCCESSOR N)) H)). This is an instance 
of the general statement (EQUAL (*GPROD A8 A9 (SUCCESSOR N9) A) (*PROD 
(*GPROD A8 A9 N9 A) (*SUB A8 A9 (SUCCESSOR N9)) A)), where A8, A9 , N9, and A 
are (free) variables. It is not necessary to indicate in some way that A8 
must match a subexpression of whatever expression A9 matches, for this will 
automatically be the case in any well-formed use of *GPROD. 

Together with the preceding general statement, the identity (EQUAL 
(*GPROD A8 A9 1 A) (*SUB A8 A9 1)) gives an inductive definition of *GPROD. 
Using such a definition, it is reasonable to consider such theorems as 
f ( 3l ...a n ) = f 1 (a 1 )...f 1 (a n ) for a homomorphism f^ or (a r ..a n ) 

a " 1 ...a 1 " 1 . Both proofs are exactly the same in structure, step by step, 
n 1 

Each is a natural use of induction, and each requires an additional hypothesis. 
For the first, this hypothesis is as follows: (EQUAL2 (Fl G H (*SUB A8 A9 N9)) 
(*SUB A8 (Fl G H A9) N9)). This is an explicit connection between two legal 
notations, according to these conventions of notation, for expressions such as 
f (a ). Thus there is actually still a need for a schema; in this case a 
schema to the effect that P[(*SUB A8 A9 N9)] = (*SUB A8 P[A9] N9), where P is 
any of a fairly large class of terms. 

Leaving this incomplete discussion of the problems of notation, the 
question of the implementation of the method of mathematical induction will 
now be considered. The greatest difficulty here is an obvious one — how to 
decide algorithmically when to attempt a proof by induction. This decision, 
including the identification of the specific variable on which the induction 
is to be performed, is not an easy one. Surely one condition which must al- 
ways be present in a theorem which is provable by this method is the appearance 
of a term which is defined by a definition which is inductive in form; i.e., 

of the form "X, Y,..., Z are special instances of a , and if A is a , 

the element given by the (usually simple) operation cp on A (or on A and some 
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other ' s) is a ." For instance, a common example is the positive 

integers, given by "1 is a positive integer, and if n is a positive integer, 
n + 1 is also a positive integer." *GPROD, the term discussed above, has an 
inductive definition. 

While the presence of a term that is inductively defined is a necessity 
for the use of induction, it is certainly not true that use of induction is 
appropriate in all theorems which contain mention of such terms. Many theo- 
rems involving finite groups, for instance, are not proved by induction on the 
order of the group. To be short and to the point, a method has not been found 
to enable ADEPT to reasonably decide when to use induction. 

Once such a decision is made, there is little further trouble. A super- 
visor along the lines of ISOLVE has been written which, when asked to prove 
some proposition P(n), asks ADEPT to prove P(l) and P(n) ==> P(n'). This suf- 
fices to handle most instances of induction encountered in elementary group 
theory. In general, more freedom is needed to specify the basic case, and a 
non-rigid concept of successor is needed. 

Using the supervisor just described, NSOLVE, a user may decide that a 
proof should be done by induction, and have it done by machine. The two the- 
orems mentioned earlier in this chapter are provable by NSOLVE, as well as the 
simple fact that a,e G ==?> a e G for any semigroup G. Using the same guide- 
lines for notation described above, NSOLVE can be given problems involving, 
say, finite intersections of sets. For example, consider the problem that the 
intersection of any finite number of subgroups is itself a subgroup. This is 
done easily by NSOLVE if the lemma stating that the intersection of two sub- 
groups is a subgroup is known to it. It seems reasonable to assume that this 
lemma would be present as a disjunct of the sufficient condition for subgroup 
available for use on any non-trivial problems. (The proliferation inherent 
in such assumptions will be discussed in the next chapter.) Given this lemma, 
only one extension had to be made to ADEPT. This was to have the search which 
sees if a line about to be put on table II is already on table I take into 
account (free) variables as arguments of terms on table I. That is, a 
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statement of the form P(a.), where a^ ia a variable, on table I carries the 
force of its universal generalization, and therefore should suffice to verify 
any statement P(a„) being put on the proof tree. Heretofore, all statements 
put on table I with variables happened to be either implications or equalities, 
and thus a simple check for equality of two statements, one on table I and one 
one table II, was sufficient (given that EQUAL and EQUAL2 were considered 
identical), since the scan would discover other possible inferences. In this 
problem, however, a table I statement (SUBGROUP (*SUB A A N9)) with (free) 
variables A and N9 has to cause verification of such lines on the proof tree 
as (SUBGROUP (*SUB H H 1)). Such an extension to ADEPT is clearly necessary 
and desirable, and can be implemented in a manner so that it will not increase 
running time significantly. 

The preceding paragraphs have mentioned only very simple problems prov- 
able by induction. The following discussion is of a considerably harder the- 
orem. Included here because the proof requires induction, this theorem's 
discussion will also serve to illustrate the problems that will arise when 
definitely more advanced theorems are given to mechanical proof procedures. 
Truly a "Pandora's box catastrophe" is very near, and only inspired heuris- 
tics will ward it off. 

The theorem is that every finite group has a composition series , and 
first, a proof of this is outlined, in order to make the following comments 
more intelligible. A composition series of a group G is a series of subgroups 
(A. , .... A n ) of G such that A 1 - {e }, A & - G, A^ is normal in k ± and Aj/A^ 
is simple for i - 2,..., n, and all the A.'s are distinct. To aid in the proof 
is the lemma that A/B is simple (has no non-trivial normal subgroups) if and 
only if B is a maximal normal subgroup of A. Proceeding to induct on the 
order of G, the basis step is completed by demonstrating that ({e G }) is a 
composition series of length 1 for G if G has order 1. Assuming that any 
group of order ^ m has a composition series, a group G of order m + 1 is shown 
to have one by considering its maximal normal subgroup H. H must have order 
s: m, and therefore has a composition series (A.,..., A n ), where A Q « H. Then 
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it can be shown that (A.. , . . . , A , 6) is a composition series for G. This 
completes the inductive step and therefore the proof. 

Now consider just a few of the details glossed over in the above outline, 
which cannot be omitted in a machine's proof. The definition of a maximal 
subgroup H of a group G includes a statement that the order of H, o(H), is 
strictly less than o(G). To conclude from o(G) ■ m + 1 and o(H) < o(G) that 
o(H) £ m requires an explicit step, using one of the numerous relations con- 
necting <, £, =, 2, and >. Certainly these relations cannot be given to ADEPT 
as lemmas, but must be built (or "compiled") into the program, and in a way 
that will not cause proliferation of effort. Perhaps this can be done not by 
special-purpose matching routines for Polish notation expressions, but by a 
subroutine built around the use of the linear "lattice" model of the integers. 
Another step left out of the proof is one which might be given as a lemma for 
this theorem, and that is that every finite group G such that 1 < o(G) has a 
maximal normal subgroup. (How would ADEPT prove this innocent fact?) Another 
detail requires that the definition of order of a group state that a group of 
order 1 contains one element, and if the definition does not specify this 
element to be the identity, ADEPT must be able to prove the admittedly trivial 
fact that it is the identity. 

In addition, demonstration of a candidate for a composition series in- 
volves a use of existential quantifiers which is not among the special cases 
which SOLVEX can now handle. This, of course, will be a frequent occurrence 
as new types of theorems are proposed for ADEPT, and some of the necessary 
extensions will be more difficult than others. 

It is the author's hope that the preceding discussion will clearly illus- 
trate the difficulties and considerations inherent in proofs of more complex 
theorems. No solutions have been delineated, partly because it is the author's 
contention that the harder theorems introduce radically different types of 
reasoning processes than those used in the types of theorems for which ADEPT 
was constructed. 

Mostly just to prove that it could be done, even though making use of an 
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extension of SOLVEX written to cope with only the above theorem and making use 
of a "Loaded" definition of composition series, a version of the preceding 
problem was formulated which NSOLVE successfully proved (with 26 lines and 
using 33 seconds of machine time). The statement of the problem is given here 
in mathematical notation, and the translation into Polish notation follows the 
spirit of the previous discussion on notation for series, iterated products, 
and the like. 

A composition series is defined for this purpose by the inductive state- 
ment: B = {e } ==> (B) is a composition series of length 1 for B; if B has a 
B 

maximal normal subgroup and (A,,..., A ) is a composition series for it, then 

(B 1 , . . . , B ) is a composition series for B, where m = n + 1, A. = B. for i < m, 

and B = B. The theorem itself is given as a conjunction of lemmas, followed 
m 

by the conclusion: [G is a group and o (G) s n] ==£> G has a composition series. 
NSOLVE is told to induct on n. The lemmas used are: 

i) [A is a group and o(A) ^ 1] ==^> A = {e.}; 
ii) A is a group =^> [A has a maximal normal subgroup 
which is itself a group, and [o(A) £ m + 1 ==*> the 
order of the maximal subgroup of A is ^ m] ] ; 
iii) A has a composition series ==£> there exist an integer 
m and subgroups B. such that (B. , . . . , B ) is a 
composition series for A. 
Even these specially chosen statements caused difficulties. In particu- 
lar, it was discovered that certain conjunctions on the proof tree were such 
that it made no sense to attempt to prove one conjunct before the other was 
established, and a provision was introduced to flag such a conjunct as "not 
discarded but not to be considered until such and such a time". This was 
crudely done, and is best not described in detail! 

Before embarking on the next chapter for a final discussion of the future 
of mechanical theorem-proving as revealed in the light of the ADEPT program, 
one other example will be considered. Much of the reasoning used in the types 
of theorems which ADEPT encounters is applicable to problems previously given 
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to "advice- takers". In particular, an investigation was made to see what 
modifications would have to be made to ADEPT to solve a version of the MIKADO 
problem, originated by Safier^ ' and discussed by Slagle.* 1 ' It turns out 
that very few are necessary. The access to tables of definitions and suffi- 
cient conditions is blocked, for advice-taker problems are stated in 
self-contained packages. Koko, Nankipoo, Katisha, and Mikado are declared to 
be variables (it does not matter which kind!), and one extension is made to 
SOLVEX, allowing an expression of the form ( 33-^ • • • ( 3 a n ) p ( a i> • • • > a n ) > for 
some expression P which is a single term followed by its arguments, to be 
"solved" if a statement P(b.,,..., b ) is on table I. The problem can then be 
proved by ADEPT if stated as follows: 
hypotheses : 

i) (Unmarried*female Katisha) 
ii) (Unmarried*male Koko) 
iii) (Not*think*dead Mikado Nankipoo) ==S> (Can*stay*alive Koko) 
iv) (Can*appear*safely Nankipoo) ==£> (Can*produce Koko Nankipoo) 
v) (Not*accusing Katisha Nankipoo) ==> (Can*appear*safely Nankipoo) 
vi) (Not*claiming Katisha Nankipoo) ==> (Not*accusing Katisha 
Nankipoo) 
vii) (3a 1 )(Can*produce a ± a ) ==i> (Not*think*dead Mikado a 2 ) 
viii) (Married Katisha) ==> (Not*claiming Katisha a^,) 
i-x) (3a 1 )(Can*marry a l a. % ) =■> (Married a^) 

x) (3a ] )(Can*propose a. Katisha) ==0 ( Sa^ (Can*marry a l Katisha) 
xi) (Unmarried*female a„) & ( 38^ (Unmarried*male a^ ==> (3 a x ) 
(Can*propose a^ a„) 
conclusion: 

(Can*stay*alive Koko) 
In the above, a 1 and a. are assumed to be variables; i.e., the first six 
hypotheses form the first conjunction of input, and the last five hypotheses 
form the second. 

This statement of the problem should be compared closely with that given 
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in Slagle. The propositions involving causality used in Slagle's proof 

were not used with ADEPT, so it is not surprising that ADEPT's proof is 
shorter; in fact, it is much shorter, taking only 14 seconds instead of 
Slagle's 5.7 minutes. But ADEPT is not an advice-taker in a general sense, 
so the preceding comparisons are not too cogent. It suffices to say here 
that ADEPT can handle at least some advice-taker problems. In Appendix I, 
a more detailed discussion of advice- takers and how they differ from ADEPT 
will be given. 
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CHAPTER VIII 



FUTURE POSSIBILITIES AND CONCLUSIONS 



It Is time to evaluate the ADEPT project and discuss possibilities for 
future work uncovered through insights and experience obtained from the pro- 
gram. To do this to best advantage requires a restatement of the purposes 
for which ADEPT was created. Primarily, the goal was to obtain a program 
which could handle a significant number of theorems of elementary group the- 
ory. Needless to say, these theorems were to be drawn from the simplest 
results, the foundations of the subject. These seem to fall into four main 
classes: i) those which require "constructions", such as the proof that a 
left identity is also a right identity, ii) those which follow by straight- 
forward inferences from basic concepts, iii) those which depend to a large 
extent on knowledge of simple facts in number theory, such as easy results 
regarding finite groups, and iv) those which serve as illustrative examples. 
It was decided to use theorems of the second type, on the assumption that the 
deductive reasoning required to handle them would be most generally applicable 
to all kinds of theorem-proving. 

As a matter of fact, consideration of the development of the simple proof 
that the kernel of a homomorphism is a subgroup of the domain of that homomor- 
phism was instrumental in defining the basic structure of ADEPT. Subsequent 
consideration of numerous theorems of the same type led to the growth of ADEPT 
to its present form, complete with a number of special-purpose heuristics. 
Indeed, the limited goals for ADEPT as a program have been met, for nearly 
one hundred theorems of group theory have been proven by this computer algo- 
rithm, and the program has sufficed to provide legitimate evaluation of vari- 
ations in the algorithm and their effects. 
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It may be objected that the proofs produced by ADEPT are sometimes inef- 
ficient, not to mention that some problems of the type that is ADEPT'S spe- 
cialty "stump" the program completely. In reply one has only to note that any 
routine which can produce proofs of all the various facts that ADEPT has es- 
tablished in consistently less than two minutes of computer time per proof 
cannot be seriously inefficient. (The isomorphism theorems if considered as 
three or four "proofs" each conform to this statement.) This is particularly 
cogent when one considers that ADEPT is written in LISP 1.5, a language not 
noted for execution speed. As for the similar problems with which ADEPT cannot 
cope, they are not numerous. Indeed, most have been discussed in earlier 
chapters, on the assumption that examination of shortcomings is more instruc- 
tive than perusal of successes. The fact remains that the successes far out- 
number the failures. More importantly, the class of theorems for which ADEPT 
was designed has been essentially exhausted in the course of this project. 
This fact has two important consequences. One is the fact that improvements 
made to ADEPT in order to enable it to prove those theorems of the same type 
which it cannot prove would not result in a program which could prove many 
more theorems. The other is that refinements designed to increase efficiency 
could only be used on the same theorems, which do not now require prohibitive 
amounts of effort. 

More serious vis the complaint that, though ADEPT can prove an impressive 
number of theorems, many must be stated in a "correct" manner in order for the 
program to be successful. In many instances this complaint is, in the author's 
opinion, not valid. In particular, it is maintained that a user can be reason- 
ably asked to exercise care in deciding upon the form of statements presented 
to ADEPT, as least at this stage in the art of theorem-proving. For instance, 
choices between asterisked and non-asterisked notation, or between the various 
logical constants for equality are often critically important, and the user 
has a responsibility to aid ADEPT in this heuristic matter. The complaint is 
valid, however, in the case where the number, and not the form, of the hypoth- 
eses is in question. The user cannot be expected to know the minimal set of 
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hypotheses needed for a proof. Thus this is a definite shortcoming of the 
ADEPT program. 

Changes designed to ameliorate this failing could be tested on the same 
theorems which ADEPT has already considered, by making use of the enormous 
number of possible ways of overspecif ying the hypotheses to these problems. 
This is the case even if only "natural" unnecessary assumptions are introduced. 
But the weakness of ADEPT in coping with overspecif ied theorems is an indica- 
tion that more serious difficulties will arise when more difficult problems, 
based on a broader base of known concepts, are considered. For instance, the 
introduction of numbers and their associated properties could complicate a 
proof considerably. Add to this another inefficiency which has been tolerated 
until now but which must be faced in the near future, namely excess branching 
due to the associativity axiom, and a good case has been made for conducting a 
full-scale investigation of more efficient theorem-proving with an eye to a 
much larger class of problems. 

How, then, can such difficulties be overcome? Can it be by additional 
special-purpose heuristics, or by some general planning heuristics, or by an 
entirely different and more appropriate algorithm? The answer, as is so often 
the case, is probably a combination of the possible courses of action. Still, 
it seems that the most efficacious improvement would be the introduction of 
some kind of planning . This could take a variety of forms. In fact, some 
planning is already present in ADEPT. HOMCMF effectively delineates a plan to 
be followed to attempt to verify certain equalities (those given by FEQUAL). 
On a larger scale, ISOLVE represents a plan for approaching an isomorphism 
problem. Similar plans could be developed for other special subclasses of 
theorems or types of lines on the proof tree. One possibility is a special 
executive like ISOLVE designed for closure problems. A closure problem is 
one where, assuming a variable or variables are members of some set, it is to 
be shown that a certain function of those variables is again a member of the 
set. Showing sets to be subgroups or normal are problems of this kind. As 
was seen in Chapter V, efficiency difficulties have occurred in such theorems, 
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and a plan incorporated in a supervisor might be an answer to such troubles. 
To resort in this manner to separate routines for each kind of problem 
is an abandonment of any hope of developing a general-purpose problem solver, 
except for a program to perform the very trivial deductions which form the 
core of most proofs. Such despair may be justified, but this cannot be argued 
conclusively at this date. For one thing, there are more general ways to 
attempt planning. One such possibility would not be hard to try with ADEPT, 
and probably should be tried soon. This particular planning heuristic will 
now be elaborated upon in some detail. 

In Chapter III the phrase "explore consequences of all terms..." was 
used, to indicate a call to SCANW to match against lines on the proof tree 
all instances of definitions of the terms in question as well as all other hy- 
potheses and accumulated "knowledge" on table I at the time of the call. In 
the early stages of a problem this amounted to a planning heuristic, for due 
to the selective placement of entries on table I, very little was on table I 
except entries associated with the terms in question. Thus the "plan" was to 
apply to a line on the proof tree only facts known about terms, etc. of that 
one particular line. As the proof progressed, and more entries appeared on 
table I, this heuristic gradually "disappeared", giving way to, a procedure 
of a much more "brute- force" character. Why not employ this heuristic at all 
times, thus incidentally eliminating the need for selective placement of 
entries on table I? This could be done by "indexing" all table I entries, 
according to their origin. Obviously there would be the original hypotheses, 
and the lemmas which were added during the proof, but more importantly, those 
entries which were definitions of terms could be "tagged" by that term, and 
singled out from table I whenever that term was spotted in a line of the proof 
tree. Thus for every line of status PNT, when it was scanned table I could be 
divided Into two parts — a select part Including all definitions of terms or 
constants in the line being scanned (and perhaps the original hypotheses), and 
the remainder of table I. Clearly the select subset would be used alone by 
the scan at first, and if no success or progress resulted, possibly but not 
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necessarily the remainder would be considered. 

In conjunction with the changes now being suggested, two details should 
be implemented. One concerns a more involved check of the constants of a line 
being examined. At present, for each constant of the line, a search is made 
through table 1 for entries which define it. To be precise, a constant A is 
defined by an entry of the form (TERM A ...), and the resulting action is the 
placement on (the select portion of) table I of the proper instance of the 
definition of TERM. This procedure handles set and function constants ade- 
quately, but very seldom provides any information regarding constants which 
are members of sets. To remedy this, the procedure could be supplemented by 
a search of table I for terms defining not only the constants of the line of 
status PNT, but also all set constants A from table I entries of the form 
(MEMBER Al A), where Al is a constant of the line of the proof tree being 
examined. (For asterisked notation this procedure would put on (the select 
portion of) table I an instance of the definition of *TERM when Al was found 
in an entry of the form (MEMBER Al (*TERM ...)).) This would provide a more 
complete determination of which entries of table I are relevant to a given 
proof tree line of status PNT. 

In addition, it is suggested as a result of experience, that certain 
entries of the select portion of table I be given even higher priority. This 
might be too difficult to implement to be practical, but the idea is this. 
Consider the case where a line n of the proof tree has given rise to a reduc- 
tion n. due to an application of detachment from an implication of table I in 
logical class m. Suppose further that other table I entries in the same log- 
ical class could have caused substitutions in line n, if this were not pre- 
vented by the restriction described in connection with "progress heuristic" 
B. The suggestion is that if the same "Inhibited" substitutions are now pos- 
sible in a line of the proof tree which is either n itself or a reduction of 
n . , that these should be done first, and given a definite priority. As an 
illustration of this, the reader is urged to refer back to Problem V-C, and to 
note that implementation of this suggestion would remove the inefficiency 
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associated with that proof. 

The heuristics just described, by analyzing more completely the content 
of a line of the proof tree, including, in the last suggestion, an element of 
analysis of how the line originated, clearly would implement a greater degree 
of "awareness" to the program, so that it could be maintained more cogently 
that ADEPT. would be performing as though it knew where it was in a proof. On 
a more prosaic level, proofs would run faster, if only because just a subset 
of table I would be used by SCANW except in unusual cases. Some proofs would 
no doubt be shorter from the point of view of the number of lines on the proof 
tree, but it is less clear that increased efficiency would manifest itself 
noticeably in that manner. Another important advantage would be gained — 
namely that the separation of a select portion of table I before scanning 
would enable ADEPT to cope successfully with problems involving a longer total 
table I; i.e., problems with more hypotheses or problems involving a broader 
base of concepts. There is no reason to believe that single lines of the 
proof tree in such problems would have more terms and constants than at pres- 
ent; thus the size of the select portion of table I for any given line should 
remain small and manageable. 

While the previous heuristics would enable ADEPT to handle more assump- 
tions, hypotheses, etc., they do nothing to alleviate a similar problem — 
more branches on the proof tree. As theorems become more complex, and ADEPT 
acquires a broader base of "knowledge", lines of the proof tree will have 
greater numbers of reductions. One example of this was alluded to briefly in 
the last chapter — sufficient conditions will have to be disjunctions with 
many clauses. Under these conditions, it will be impossible to expect ADEPT 
to consider reductions of lines in the order of their generation, as is pres- 
ently done. Some choice will have to be made, on the basis of the particular 
context of the theorem at a point in its proof. One isolated suggestion was 
made in the preceding discussion concerning a proposed priority for substitu- 
tions "delayed" by prior applications of detachment. A crude choice could be 
based on length or complexity of a reduction, with "simpler" reductions being 
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processed first. Such a heuristic might work in some cases, but it is the 
author's opinion that any such completely syntactic heuristic would have lim- 
ited effectiveness. Perhaps it would be best to use a complexity heuristic 
only in cases where one alternative is dramatically simpler than the others, 
as sometimes happens when a "correct" substitution results in a "collapsing" 
of a lengthy expression to a very simple one. 

Other possible criteria for ordering reductions of a line are based on 
the history of the reductions. For instance, since generation of reductions 
by detachment has been seen to be correlated with progress, perhaps reductions 
generated in this manner should be considered first. Another possibility 
which may have a desirable effect is to keep track of the logical class of 
the table I entry which is used in generating each reduction of a line on the 
proof tree. Then a list of all logical classes of table I entries used in 
the steps from the head of the tree to any particular branch would be avail- 
able. (When an implication is split and the reduction is an instance of the 
consequent of the parent line, there is no associated logical class, but 
neither is there any other reduction necessitating a decision.) Given this 
history of a line, priority could be given to reductions generated due to 
axioms, etc., in a new logical class, or in a little-used logical class, or 
perhaps in a logical class that had not been used recently. This would be a 

manifestation of the heuristic stating that all the hypotheses may be needed 

r tic (16) 

for a successful proof. 

Another suggestion is to make use of a grouping of terms into classes 
according to their generality. For instance, subgroup is probably the most 
general term which defines a set in group theory. In contrast, an inverse 
image can be considered to be a fairly specific set. With such a grouping, 
which would not have to be too refined, preference could be given to reduc- 
tions generated using table I entries obtained from definition instances of 
the more specific terms. The rationale behind this proposal is shown in 
many of the examples of the earlier chapters. Many theorems involve subgroups, 
for instance, but the presence of the instances of the definition of subgroup 
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must not cause a lot of extra branches, as it presently does in ADEPT. So 
this is a heuristic which might help the program to cope with overspecif ied 
problems and problems with many hypotheses. 

Some of the above suggestions may be futile hopes. One important fact is 
that because of this project, it is or may soon be possible to test such heu- 
ristics. Using ADEPT or a slightly (not greatly) improved ADEPT and the more 
difficult of the theorems already proved by ADEPT along with some of a slight- 
ly harder nature, it should be possible to obtain significant evaluation of 
the effectiveness of such schemes, and of different combinations and prior- 
ities in combinations of such schemes. 

Incidentally, the worth of some of these proposed heuristics will vary 
according to the degree to which a hypothesis is liable to be necessary. For 
simple problems, this means that techniques used to cope with theorems stated 
with deliberate "red-herring" hypotheses will vary from those used for more 
ideally stated problems. For harder problems, it means that because of the 
larger number of hypotheses per problem, and therefore the lessened likelihood 
that any one hypothesis will be "correct" for a given step, and because of hy- 
potheses included due to uncertainty over their relevance, different criteria 
for evaluation may be needed than were optimum for simpler problems. To give 
an example, the suggested "approval" for use of axioms of varied logical class 
is obviously a heuristic which could lead to wasted effort in the presence of 
irrelevant hypotheses. 

A couple of other details involving ordering of reductions are of more 
certain usefulness. The MODEL heuristic can be applied to lines of the main 
proof tree, not to accept or completely reject lines as it does for those of 
status ST, but to give an indication of the likelihood of proving a reduction 
of the form a,e A. And it hardly needs to be mentioned that when one reduc- 
tion happens to be a conjunction, which will itself be of status NILL, that 
this branch should be ordered according to the worst evaluation of the two 
co-conjuncts. Such pessimism is only common sense since both conjuncts would 
have to be established in order to verify their predecessor. 
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It should be noted that adoption of schemes for ordering reductions 
raises questions about the order in which the total proof proceeds. Some 
heuristics would appear to decrease the need for complete scans, but if SCANW 
is not called often, a new procedure will be necessary to adequately process 
lines of status ST, the subordinate trees. It will be necessary to specify 
when to end processing of a selected reduction. If processing is ended in the 
same way as that of a line of status PNT is terminated at present, where does 
the program go next? The answer nearest to the spirit of the present version 
is illustrated as follows: Suppose line (4), say, has just been processed, 
and the next line of status REL able to take on status PNT is line (6). Per- 
haps line (6) is a reduction of line (3), and another reduction of (3), say 
line (9), is of higher priority. Then simply interchange lines (6) and (9) 
and proceed as usual. 

Some other heuristics which can properly be called planning heuristics 
are suggested by features of previous work in problem-solving by computer 
which were not included in ADEPT. For instance, the difference-operator tech- 
niques of Newell, Shaw, and Simon^ have an obvious application for the 
establishment of identities. For example, when an equality requires a switch- 
ing of constants, as in a proof that a set is abelian, the axiom concerning 
the inverse of a product may be useful, as in Problem V-K. While it would 
seem impractical to develop a complete GPS-like routine to handle such steps, 
certainly some sort of comparison between halves of an equality could be 
developed and used to some degree in the choice of the next step to be made 
by ADEPT, as well as a means of evaluating progress. A more specific heuris- 
tic is suggested by a particular example in one of the GPS papers. There, 
planning is done by "abstracting" the problem; since the domain of the example 
is the predicate calculus, this could be done by ignoring connectives and the 
order of the variables. ADEPT has need of such an approach in its treatment 
of associativity. Here the abstracting would be accomplished by ignoring 
grouping; i.e., "remove the parentheses". There are strong reasons for for- 
mally considering composition as a strictly binary operation, for this 
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simplifies the task of formalizing and programming group- theoretic algorithms 
tremendously. But it has become obvious that at certain times in some prob- 
lems, ADEPT must be able to "stand back" and consider the lines of the proof 
tree in this more abstract form, thus making optimum use of the known hypoth- 
esis of associativity. Surely it would not be difficult to decide upon a 
precise form for this special-purpose planning heuristic and then to implement 
it within ADEPT. 

What are the implications of the implementation of planning heuristics 
for the methods of determining "progress" in ADEPT? Is heuristic B, which is 
presently in use, suitable for a program altered in ways such as have been 
considered above? The answer is that heuristic B is not sophisticated enough, 
but more constructive comments are not as easy to make. Of course, if a pri- 
ority scheme is adopted to order reductions of lines, the method of assigning 
priorities will probably also be of some application for a determination of 
progress. For instance, if terms are classed according to specificity, gen- 
eration of a reduction of a line by detachment using a table I line arising 
from the definition of a very general term may well not be considered grounds 
for declaring "progress" or for putting a line of status REL into status REL1. 
Conceivably, with good enough planning and ordering heuristics, there would be 
no need for status REL1. Or if determination of order of reductions depended 
strongly upon which were generated by detachment, perhaps a progress heuristic 
should not be based so strongly on application of detachment. It does seem, 
however, in the light of results obtained so far with ADEPT, that uses of 
detachment must be given some kind of special consideration in either planning 
or evaluating steps in any extension of ADEPT. 

Of course, if special-purpose executives, like ISOLVE, are constructed, 
as was suggested above for closure problems, the need for lower- level planning 
and evaluation of progress will decrease markedly. In fact, since a large num-t 
ber of theorems considered thus far with ADEPT are closure problems, it might 
be a worthwhile short-term project to develop such an executive in order to 
evaluate the special-purpose approach. In contrast, development of planning 
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heuristics and more sophisticated progress heuristics should be done in light 
of more theorems than those considered so far in the course of this project. 

It should also be noted that other existing heuristics besides those 
connected with "progress" may be rendered unproductive by the adoption of 
planning techniques. Just as an example, the heuristic of substituting in 
only one half of an equality on the proof tree may be found to be of no fur- 
ther value. As in all this discussion, precise statements about effects can 
not be made until a particular combination and implementation of some or all 
of the possible new heuristics is adopted and fixed. 

As mentioned at various times in this report, part of the effort of ex- 
tending ADEPT will have to be devoted to development of specific subroutines 
to augment the existing program. These are not heuristics, but merely capa- 
bilities for different types of problems. SOLVEX will have to be able to 
handle expressions of the form ( 3 a. )Pa. for a broader class of expressions 
Pa.. , including expressions themselves headed by an existential quantifier. 
The need for a routine to discover "constructions" or expansions has been seen 
in a number of examples. Such a routine will not be easy to develop. It will 
have to include heuristics, quite possibly ones very reminiscent of Newell, 
Shaw, and Simon's GPS. This routine will govern those cases where equal- 
ities expressed using EQUAL (including those handled by the simplification 
routines associated with PUT0N2) should be applied in the unnatural direction. 

It should also be capable of either performing or setting up intermediate 

-1 -1 -1 
steps so that ADEPT can perform substitutions such as a.a„ •*— (a„a. ) , 

which were seen to figure in some of the theorems covered in Chapter VI. 

As difficult as it will be to devise a "construction" subroutine, an 
even more difficult task will be to decide algorithmically when to use it. 
Here the realm of the unexplored has been reached. No longer does the orien- 
tation of ADEPT seem so productive, but still it is infinitely preferable to 
the orientation of the complete predicate calculus procedures. Here open, 
creative minds are needed to cross a gap of ignorance. Similar situations 
have come up before in this report. When should induction be used? What 
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procedure can isolate the variable on which the induction will take place? 
For proofs by contradiction, efficiency virtually demands prior selection of 
the hypothesis most likely to be contradicted by the consequences of assuming 
the denial of the conclusion. Even more difficult is the question of when to 
abandon proof of a proposed theorem and try to construct a counter-example for 
it. (Incidentally, a good "give-up" heuristic could conceivably make it 
practical to try all of the methods of proof on a given problem, thus elimi- 
nating the need to choose between proof by induction, contradiction, etc., 
without increasing the total amount of effort involved by a very high factor.) 
And ultimately, could a computer program generate likely candidates for 
theorems? 

Returning from this dash into the world of the relatively distant future 
of theorem-proving by computer, consider problems of only slightly greater 
difficulty than those already done by ADEPT. In particular, consider briefly 
how the concepts of orbit of an element and order of an element are naturally 
used in the proof of the Sylow theorems, which need only mention order of the 
group in their statements. This is not an isolated example; to prove more 
advanced theorems one must know what method to use, and the method often in- 
volves introduction of other concepts. In part, one learns from experience, 
but if only from experience the result is a group theorist like the author, 
who is unable to prove a theorem unless he has seen the proof of a similar 
one! But how does the mind of the creative mathematician work? Could a 
scholar outline an algorithm suitable for a computer? Is it not more likely 
that a programmer attacking this problem will meet the same frustration as 
Dr. A. L. Samuel met when he found that expert checkers players did not under- 
stand how they played the game? 

Thus the author firmly believes that radically different approaches are 
used in the thought processes of human mathematicians as they work on harder 
theorems, and therefore different algorithms will be needed to prove harder 
theorems by computer. Indeed, though it could be broadened to prove more the- 
orems , ADEPT is already to the point where its orientation has approached the 
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limit of its productiveness, and fresh ideas are needed in order to produce 
efficient proofs of harder theorems. There will, however, be need for ADEPT, 
or rather for an improved ADEPT, in future problem-solving programs no matter 
what their organization, for harder theorems will have sub- theorems which are 
precisely the type of problem for which ADEPT was constructed. In addition, 
part of the reasoning process of harder proofs, particularly once a general 
method of proof has been chosen, will involve just those very logical infer- 
ences that ADEPT can handle. 

In summary, what has been done is this. Starting with a desire to capture 
in an algorithm suitable for a machine the human thought-processing used in 
elementary group theory, a program was developed. Before this development 
could be accomplished, a decision had to be made between two possible orienta- 
tions — the "mechanical" and the "heuristic". The former had been considered 
more extensively in previous projects. On the surface it seemed that a com- 
binatorial, manipulative approach with a simple but powerful theory behind it 
was ideally suited to a computer program, as well as providing the satisfying 
theoretical "completeness" which is a consequence of the theory. But the pre- 
vious efforts had shown that what seemed ideal in theory was not at all ideal 
in practice, and in fact discouraging barriers were encountered in the realm 
of efficiency. At the same time, the heuristic approach had not been shown to 
be necessarily superior, but at least it was a viable alternative. Its main 
advantage is that the programmer can avail himself of human experience in a 
direct way. By introspection and investigation of mathematical reasoning as 
seen in the literature, an attempt can be made to understand how the human 
mathematician is able to reduce what is combinatorially a gigantic problem 
to manageable size. (It must not be overlooked that even this "size" is not 
small when one takes into account the "experience of the ages", the store of 
knowledge and effort of centuries before.) Thus the investigation takes on a 
two-fold interest — not only is there the attempt to construct a working 
algorithm, but there is the endeavor of understanding in part the techniques 
of the brain, and formalizing those steps of logical deduction that are done 
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literally without thinking. 

There is no claim here that what is best for the mind is best for the 
machine. It is certainly conceivable that the optimum way for a computer to 
prove theorems bears little relation to human thought. But at the present 
time it is not known what this might be. One "non-human" orientation has 
already been seen to not be the answer. Meanwhile, progress can be made, both 
in developing algorithms and in understanding the problem itself, by consider- 
ation of what people know about what is, after all, a uniquely human ability 
at this time. 

Pointed in this direction, the development of ADEPT began. First and 
foremost, as has been seen, the program has been successful, though this fact 
may have been obscured at times by the discussion of ADEPT'S shortcomings and 
what could be done next. Not only have non-trivial theorems been proved by a 
computer program, but a huge number of insights into the natures of specific 
problems and types of problems as they are approached algorithmically have 
been obtained. Furthermore, heuristics have been discovered and evaluated, 
now that a suitable vehicle for such experimentation is in existence. It will 
be instructive to list briefly, in a single compact list, the heuristics used 
in the course of this project. 

1) Implementation, through the use of specially introduced 
logical constants for equality (EQUAL and FEQUAL), of 
restrictions on substitutions and of different methods 
of processing lines. 

2) Substitutions allowed in one side only of an equality 
(EQUAL or EQUAL2) on the proof tree. 

3) Performance of related substitutions simultaneously, 
implemented through the use of a "logical class" for 
table I entries. 

4) Processing of lines headed by an existential quantifier 
by special cases, as opposed to a uniform procedure. 

5) Selective placement of definition instances on table I, 
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done as terms are encountered in the course of a proof. 

6) Restricted matching allowed for expressions consisting 
of just one free variable. 

7) "Compiled" application of common identities as a line is 
put on the proof tree, sometimes resulting in simplification 
of the line, and other times resulting in additional 
substitution instances of the line. 

8) The MODEL heuristic, allowing rejection of some new sub- 
ordinate trees started by an expression of the form 
(MEMBER Al A), using a "lattice" model of the sets involved. 

9) Various progress heuristics, in particular, heuristics 
A and B, involving consideration of detachment. 

Some of these heuristics have proved more successful than others. For 
instance, numbers 1), 3), 6), 7), and 8) seem to have proved their value con- 
clusively, and can be retained in essentially their present form. Others, as 
implied in the preceding discussion of possible improvements, may be found to 
be of less importance or worth. And obviously, new heuristics are still 
needed. 

Though ADEPT never was intended to embody a "complete" procedure, a 
moment's reflection will show that some of the above heuristics further limit 
ADEPT'S theoretical power. For instance, sometimes "progress" is declared 
erroneously, as in the overspecified version of Problem V-A. It would, of 
course, be a trivial matter for ADEPT to be programmed so that once it became 
"stuck", it lifted these heuristic restrictions and redid the problem in a 
more comprehensive manner. (It is a less trivial matter to "know" when the 
program is "stuck"!) But such a recovery procedure is of little interest, as 
is obvious from the original abandonment of a "complete" procedure. A de- 
crease in ADEPT'S theoretical power caused by a heuristic is of no concern, 
if the heuristic permits more efficient proofs for more theorems in general, 
where "more", of course, has to refer to a great many more theorems than are 
"foiled" by the proposed heuristic. Certainly the heuristics included in 
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ADEPT conform to this policy. They have enabled ADEPT to perform acceptably, 
and what is more, this report has been candid about those examples which point 
out shortcomings of the heuristics. 

The question can be raised: Why stop here? Many possibilities, both 
immediate and more long-range, exist for continued work. The answer is not 
simply that one has to stop someplace; this is in reality a natural 
break-point. This is not to say that what exists of ADEPT is perfected; it is 
not even to say that the discussion of future possibilities suggests answers 
to all of the problems raised in the earlier chapters. However, as stated 
earlier, no simple alterations or extensions to the program will enable it 
to handle a significant number of new theorems. Quite the contrary; unless 
major additions are created, only better proofs of theorems already provable 
will result. 

Therefore, this project (and this report) comes to an end. Those diffi- 
culties encountered and overcome in the course of these efforts can now be 
handled routinely in the future, freeing further researchers in the area of 
heuristic problem-solving so that they may be able to concentrate more clearly 
on the harder problems ahead. 

One final comment should be made. It has been suggested to the author 
by Tim Hart that heuristics developed by experiments such as have been carried 
out with ADEPT may be able to be restated in a form compatible with "complete" 
procedures, and incorporated into them, perhaps to the end that a basically 
combinatorial approach will surpass the basically heuristic, empirical ap- 
proach. This is in no way an argument against the ADEPT project. If such a 
reliance on heuristics which can only (or at least more easily) be discovered 
through the mere natural orientation to theorem-proving used in ADEPT, can 
then be transferred to a more mechanical program, the dividing line between 
the two approaches will virtually disappear, and advantage will have been 
taken of the best virtues of both. To the author, though, the most important 
contributions will still be the heuristics. Hopefully, ADEPT will pave the 
way for important discoveries of that nature. 
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APPENDIX I 



OTHER WORK IN THEOREM-PROVING 



This discussion of related work in theorem-proving has been placed after 
the body of the report on ADEPT for two reasons. The first is that before 
understanding the approach used in ADEPT it would not be clear which previous 
projects were relevant as background. Secondly, this history can now be sup- 
plied with comparisons and comments on the author's contributions. 

The appearance of theorem-proving as a branch of artificial intelligence 
was inevitable. As soon as researchers began to explore the potentialities 
of digital computers for tasks other than numerical computation, and more 
specifically, as soon as non-numerical tasks requiring "intelligence" were 
seen to be legitimate subject areas for computer programs, artificial intelli- 
gence was in existence. It is not the intention of this commentary to define 
the proper bounds of this area of computer science, or to become involved in 
a harangue over the use of the word "intelligence". The fact is that it be- 
came possible to conceive of a digital computer, properly programmed, making 
decisions and performing tasks that in human experience necessitated "thought" 
and reasoning of a higher level than merely mechanical operations. Such possi- 
bilities were highly exciting. If achieved, computers could become extremely 
powerful and valuable aids, much more so than they are because of their com- 
putational capabilities alone. As a by-product, scientists would have a use- 
ful model of a class of human mental processes. Consequently, artificial 
intelligence projects were undertaken. Not surprisingly, the first tasks 
explored in these endeavors contained a large element of mechanical procedure 
and only a small amount of required "thinking". Excellent examples were found 
in games and in the theorems of the early chapters of Russell and Whitehead's 
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monumental Principia Mathematica . Closely related, though not usually put 
under the category of artificial intelligence, was the effort to make rough 
translations from one language to another. 

Work in all these areas became more sophisticated. An admirable achieve- 

(21) 
ment was made by Dr. A. L. Samuel in his master- level checkers program, a 

milestone in artificial intelligence, and an excellent example of a 
special-purpose program designed to do only one task, and to do it well. Pro- 
grams for computerized formal mathematics also became more ambitious, and the 
early programs for doing mathematical logic were joined by such successes as 

Gelernter's geometry program ' and Slagle's symbolic integration pro- 

(23) 
gram. Because of its self-contained nature, at least in the early stages 

of the subject, and its ease of formalization, the theory of abstract groups 

became a frequent subject of theorem-proving programs. But the successes 

were followed by a long series of slight improvements, without any real 

break-through. 

Meanwhile, a number of investigators delineated a problem area of "logiy 
cal deductive reasoning", independent of subject matter. Often with ambitious 
claims of generality and applicability, programs were constructed to handle a 
wide variety of questions. Some, as GPS — Newell, Shaw, and Simon's General 
Problem Solver,^ ' were actually crude models of human rational thought. By 
necessity, these general programs contained heuristics — procedures designed 
to cope with certain cases or combinations of events in a manageable way; pro- 
cedures believed to be of wide applicability but not necessarily guaranteed to 
be always productive. Heuristic, general routines needed to be tested on some 
particular syllabus. Often this syllabus was drawn from the theorems of some 
branch of mathematics. 

In any event, the attempt to prove theorems of formal mathematics by 
computer is not done as an end in itself, but as a step toward the achievement 
of artificial intelligence, in the hope of achieving a much greater usefulness 
of digital computers. At the present day such a hope is far from realization, 
and so work in artificial intelligence continues to concern itself with 
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theorems, games, etc. 

Henceforth this discussion will concentrate only on the area of 
theorem-proving by computer. Progress is being made constantly, and the 
state of the art is no doubt rather more advanced than can be seen from the 
literature, due to the time lag involved in publishing. In particular, pro- 
jects are known to be under way at MIT and at Carnegie Tech at this time, and 
undoubtedly other work is in progress elsewhere. However, only what has been 
published will be presented here. 

The fundamental difference between the mechanical and heuristic ap- 
proaches to theorem-proving has already been maintained. A familiarity with 
the general organization of a "complete" proof procedure has been assumed, 
and ADEPT itself is an example of the heuristic, albeit special-purpose, ap- 
proach. What has not been done is to point out how far other projects have 
gone, and to compare ideas used in ADEPT with some of those used in earlier 
programs . 

Beginning with the mechanical, combinatorial approach, what can be said 
about the capabilities of the many programs of this nature which have been 

written, and what means have been employed to reduce combinatorial explosion? 

(29) 
The most encouraging report is that of Wos , Robinson, and Carson, ' which 

relates that a program (hereafter called the "Wos program") solved Problem 
V-E (a group each of whose elements is of order 2 is abelian) in as little as 
5.18 seconds. The main heuristic used was the so-called "set of support strat- 
egy", which can be described precisely only in terms of a formal logical sys- 
tem, but which amounts to giving special consideration to the conclusion and 
special hypotheses (in this case the hypothesis that a. a = e for all a. in 
the group). Since the proof procedure works forward, attempting to generate 
a contradiction from the hypotheses and the denial of the conclusion, this 
means that the program looked for contradictory sets of statements only among 
sets of statements containing clauses derived from the two lines which were 
singled out. In ADEPT, such a heuristic would essentially say that any proof 
must make use of all special hypotheses, where the user, as in the case of the 
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Wos program, tells the program which hypotheses are to be so treated. 

In the Wos paper, the interplay between the set of support strategy and 
an arbitrary bound imposed on the complexity of statements generated is dis- 
cussed. The latter involves a guess as to the complexity of the proof of a 
proposed theorem. Not surprisingly, in the presence of an accurate guess the 
set of support strategy is of little help. But its worth is clear in the 
absence of such a guess, for with the strategy a 37.5 second proof is obtained 
when no bound is specified, while a 411 second proof with a conservative bound 
and no proof at all with no bound is obtained without the set of support strat- 
egy. ADEPT'S performance on this problem has already been discussed. Its 
"working backward" elminates much of the need for the set of support strategy, 
inasmuch as most irrelevant lemmas in ADEPT are automatically excluded. It 
was seen that ADEPT could not solve the problem without being explicitly told 
about a consequence of the hypothesis, namely a. - a ~ for all a^ in the 
group. As described in Chapter V, ADEPT proved two versions of the restated 
problem, and one took 22 seconds while the other took 82 seconds. Only 18 
lines on the proof tree were needed in the latter case, as opposed to over a 
thousand for Wos' worst case. In conclusion it should be pointed out that 
this problem is quite a bit more suitable for a combinatorial theorem-prover 
than many which have been solved by ADEPT. 

The Wos program, of course, profited by the experience of its predeces- 
sors. It uses a variation of the Herbrand procedure that was formalized by 

(19) 
J. A. Robinson, using a single rule of inference, resolution , which is 

rather well-suited for the task of mechanization. Robinson, in turn (as is 

excellently recounted in his 1963 paper ), drew upon improvements outlined 

(3) 
by Davis and Putnam and others. All in all, much effort has been spent on 

developing an extremely efficient formalization of a complete proof procedure, 

greatly refining Herbrand 's original scheme. For instance, properties common 

to the syntax of contradictory sets have been utilized. But refinements in 

the procedure are not heuristics, and are not even subject-oriented. 

Ci. 6 2 7 2 8 ^ 
Hao Wang has done a great deal of investigation ' ' along similar 
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lines. For instance, he has improved procedures by developing separate algo- 
rithms for statements of different syntactic forms; i.e., different patterns 
of quantifiers in prenex normal form. Wang's papers contain the most persua- 
sive arguments for the combinatorial as opposed to the heuristic approach. 
Unfortunately, his arguments for the preferability of a sound theory and 
complete procedure seem based on a faith that such an approach can, with ef- 
fort, be made successful. No program has been demonstrated to date to support 
this faith. If it is a justifiable hope, Wang's arguments would be hard to 
ignore; if, as this author believes, the hope is forlorn, then the theoretical 
advantages of a complete procedure are irrelevant. 

This concludes an admittedly brief account of combinatorial 
theorem-proving programs. Before a discussion of specifically heuristic 
problem-solvers is begun, mention should be made of the work of a man who had 
no interest in computer programs for formal mathematics, but who nonetheless 
has completely captured the spirit and worth of heuristics in his pedagogical 
approach. Prof. G. Polya's books on problem-solving^ ' ' are "musts" for 
anyone who is interested in the procedures used by people while doing "formal" 
reasoning. 

In the field of artificial intelligence, perhaps no researchers are bet- 
ter known than Newell, Shaw, and Simon. Their programs — first the Logical 
Theorist (LT) * ' and then the General Problem Solver (GPS)^ — have had 
an enormous impact upon this area of computer science. (Perhaps, as Newell 
himself notes, ^ ' this impact has been too great, causing a lack of innova- 
tion in approaching artificial intelligence.) LT was conceived and implemented 
a decade ago, yet its ideas have reappeared in most subsequent heuristic 
problem-solvers. Partly, this is due to Newell, Shaw, and Simon's emphasis on 
simulation of human behavior, because, being concerned with uncovering models 
of human thought processes, these researchers specified algorithms and heuris- 
tics which seem very natural, for they attempt to capture our (the human's) 
way of approaching problem- solving. For a number of reasons, work in 
theorem-proving often turns to draw upon human experience, and in so doing, 
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emulates LT. For instance, an introduction to the gross inefficiency inherent 
in a blind "working forward" approach as found in the early combinatorial 
theorem-provers leads one to the observation that people often work backward 
from the conclusion, either completely so as in LT, almost so as in ADEPT, or 
at least keeping the goal in mind to guide steps taken, as can be said of GPS. 
"Working backward" is for many problem areas a high-level heuristic, and a 
very effective one for reducing irrelevant effort. It was one of the main 
points made by the LT project. 

Adoption of a "working backward" type of procedure usually involves the 
use of a matching subroutine, and ADEPT has one just as did LT. Now, as then, 
this subroutine accounts for a significant fraction of the effort expended by 
the entire program. Newell, Shaw, and Simon experimented with heuristics 
(the similarity tests) designed to facilitate matching, but had limited suc- 
cess. As they pointed out, those possible matches which heuristics can easily 
recognize as not worth sending to the matching subroutine are just those which 
the subroutine itself rejects after a minimal amount of work. In ADEPT, very 
little effort was spent trying to improve the matching process. The only fea- 
ture incorporated for this purpose was the special-purpose matching routine to 
handle the checking of a fixed list of common axioms and identities by PUT0N2. 
Here, use of a quick check for key terms common to axioms and the proof tree 
line was sufficient to expedite the matching of these particular statements. 

Particularly on a superficial level, there is a great deal of similarity 
between LT and ADEPT. Both use ad hoc methods chosen to handle a particular 
problem area. Since the "task environment" of LT, propositional calculus, is 
semantically simpler (i.e., of less content) than group theory, it is not 
strange that LT is a less complicated program. Both ADEPT and LT employ 
non-complete procedures. LT seems more formally structured than ADEPT, but 
this is due largely to the nature of the problem area. Still, ADEPT does not 
use "methods", tried in turn on lines of the proof tree. Instead, each axiom 
is allowed to operate on the proof tree line, in turn (or at a special time, 
in the case of the common axioms and identities which have been singled out), 
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in whatever way its syntax permits. Modus ponens plays a prominent role in 
each program, though the specific use of this rule of inference takes different 
forms in each. However, on a more detailed level, again partly due to the 
nature of the problem areas, ADEPT is more resourceful than LT. Not only does 
it contain more heuristics, but it can be extended to include or test other 
special-purpose heuristics which might be developed. It makes more use of the 
context of the problem, as, for instance, in the examination of terms and 
constants of a proof tree line, and in the recognition of table I lines 
defining constants used in the proof, thus enabling instances of definitions 
to be used to better advantage. 

The creators of LT discovered a property of heuristics that also has been 
observed in ADEPT, namely that they enable a program to reach a "plateau" of 
performance, beyond which it is very difficult to progress without very dif- 
ferent heuristics. This was mentioned in Chapter VIII as primarily a property 
of the problem area, the author maintaining that harder problems necessitate 
new methods. This differentiation of problems is harder to observe in systems 
oriented around the predicate calculus, and perhaps this was one reason which 
led Newell, Shaw, and Simon to leave the impression that what is needed is a 
more powerful set of general-purpose heuristics as opposed to different heu- 
ristics for different classes of problems. 

In any event, new heuristics were (and are) needed, and GPS followed LT. 
GPS is a much more ambitious project, with many psychological implications. 
Intended to be a model of problem-solving in many areas, GPS was tested on 
problems in propositional calculus and trigonometry. Its basic organization 
is much too well known to need recounting here; suffice to say it employs 
certain "goal types" to apply operators that reduce differences between known 
statements and desired statements. The operators and differences must be 
specified and characterized for each problem area to which GPS is directed; 
the methods or "goal types" are fixed, and conform roughly to means-end anal- 
ysis. Clearly ADEPT has no similarity to GPS in general organization. Yet 
GPS has been mentioned in passing in this report, primarily in Chapter VIII, 



125 



because it appears that attempts to remedy some of ADEPT'S weak points may be 
able to profit from insights gained in the GPS work. Comparing present with 
desired results has an obvious analogue in the establishment of identities, 
and a proposed low- level planning heuristic for use with GPS, namely abstrac- 
tion of the problem, seems applicable to more efficient treatment of associa- 
tivity, as described previously in Chapter VIII. 

While discussing the work of Newell, Shaw, and Simon, a paper of Newell 
and Ernst' ' should be mentioned as giving a provocative overview of heuris- 
tic programming. Its perspective on program organization appears that it 
might be very useful to anyone contemplating new routines for problem-solving. 
While by no means as far-reaching as Hinsky's Steps Toward Artificial Intelli- 
gence , the paper is quite general, and helps to unite the field, as have 
Minsky's papers. 

Perhaps the project nearest in spirit to ADEPT is the Geometry-Theorem 
Proving Machine of Gelernter. ^ * ' First reported in 1958, the geometry 
machine is a heuristic theorem-p rover designed specifically for one branch of 
mathematics. In fact, like ADEPT, it handles a subclass of the elementary 
theorems of its subject, namely theorems involving congruences, parallel 
lines, and equality or inequality of segments and angles. Over 50 such the- 
orems were successfully proved by the geometry machine, and it became a use- 
ful vehicle for testing special-purpose heuristics. Thus it was the first 
program to successfully handle a significant number of theorems from a par- 
ticular branch of formal mathematics. Like ADEPT, it used a "working back- 
ward" procedure which was ad hoc in formalization, and not complete. Even 
some of the particular heuristics used in the two programs are closely re- 
lated. Both programs single out certain deductions to be made immediately 
on a proof tree line. Also, both programs make use of a diagram. 

At this point of similarity, the divergence between the two projects 
becomes most clear. Gelernter's geometry machine is totally dependent upon 
its diagramming feature. This is in no way a fault of the program; it is to 
its credit that this semantic model proves so powerful for its problem domain. 
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However, anyone acquainted with group theory will hardly be surprised that the 
semantic model used in ADEPT plays a relatively minor role. Of course, the 
relative importance of one heuristic is hardly a major factor for evaluation, 
but its consequences are, for the geometry machine, due to the success of the 
diagram heuristic, did not have to develop any other means for controlling 
proliferation of effort, and indeed was incapable of handling even the sim- 
plest of theorems without recourse to a diagram. With ADEPT, the basic orga- 
nization had to be more clever to allow efficient proofs, and, as argued 
throughout this report, whatever success has been obtained in this regard 
reflects progress toward a theorem-prover which "understands" where it is in 
a proof, and is able to make use of context. The formal part of the geometry 
machine has no such capabilities, for they were not needed. Thus both the 
geometry machine and ADEPT have been successful programs for a branch of 
formal mathematics, but ADEPT was forced to contain more sophisticated tech- 
niques, and the research involved in their development is more likely to be of 
value in the future. 

The idea of a diagram, or more generally, a semantic model, is a very 
fruitful one, and was first propounded by Minsky. A use for a model was 
found in group theory, as seen in ADEPT'S MODEL heuristic, and there is every 
reason to believe that other subjects will lend themselves to other realiza- 
tions of this general idea. Certainly future workers in theorem-proving must 
be alert to the possibility of favorable uses of such a feature. 

The other projects relevant to this report are the general question- 
answering systems that come under the heading of "advice- takers". The 
advice-taker was conceived by McCarthy, and it is oriented to the develop- 
ment of a system which would be capable of learning and working with any 
subject area, including "everyday situations". To do this, it was designed 
so that it was very general, handling all facts in the same way, and what is 
more, in a rather simple form which was intended to facilitate use of the 
system by many people. Because of this generality, the advice-taker is a 
victim of ambition. Like the combinatorial theorem-provers , it is ill-suited 
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to the introduction of techniques based on context, and heuristics intended to 
become an integral part of the program's structure. Like heuristic programs, 
it lacks formal theory, forcing a reliance on ad hoc programming which in this 
case is thwarted by the proposed generality of the system. Admittedly, 
McCarthy did not see it in this light; rather the advice-taker was to profit 
by an ability to accept heuristics in exactly the same way as the data base 
and questions. But the method of introduction of statements makes use of a 
variation on formal logic which retains some characteristics of English, just 
as in ADEPT. This means that heuristics must also be stated in this form, 
which appears to be a harsh requirement. In theory, a huge bootstrapping 
operation could be undertaken, but this appears beyond the capacity of present 
systems. 

In order to deal in detail with "everyday situations", McCarthy proposed 

(9) 
that formal predicates of ability and cause be introduced, along with 

statements expressing properties of and relations between these predicates 

(such as a statement saying that if A can cause an event a, and if event a 

causes event b_, then A can cause event b). Sample problems proposed for the 

advice-taker were stated in terms of these predicates. In some cases, such as 

the Mikado problem ' (considered at the end of Chapter VII), the use of 

these predicates was not necessary to express the essential content of the 

problem, as was seen in the version of the Mikado problem posed for ADEPT. 

Still, the expanded version serves as an illustration of a possible way of 

working with a problem-solver of great generality. One should note, however, 

that the character of the problem is not altered by the presence of additional 

predicates and axioms; the result is simply a more complex problem of the 

same type. 

The actual algorithm which is the advice-taker is very simple, and it is 

small wonder that ADEPT has enough deductive power to "answer" versions of 

some advice-taker problems. However, it would be erroneous to claim that 

ADEPT can do anything that an advice-taker can. In fact, two versions of an 

advice-taker have been created, one by Slagle and one by Black, and 
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both have interesting capabilities not useful for formal mathematics and there- 
fore not included (and difficult to insert) in ADEPT. Slagle's DEDUCOM is 
imbedded in the LISP interpreter, and this simple fact allows great flexibility 
in use of symbol processing and arithmetic capabilities of LISP. Introduction 
of even simple arithmetic to ADEPT would be rather awkward. More importantly, 
both advice- takers allow multiple answers to questions, and the solutions of 
problems created by this feature are non-trivial. 

In terms of ADEPT, the ability to provide multiple answers means free 
variables on table II, something which is not provided for at present. Black 
gives an excellent account of the difficulties these variables create and 
their implications for program organization. The matching routines become 
more complex and, as is to be expected, a larger amount of effort per problem 
is needed in order to find all answers. There is no doubt that multiple an- 
swer capability is necessary to a general deductive system; it is also true 
that it is an ability not needed in formal mathematics such as group theory. 

Early versions of Black's program fell into infinite loops at times be- 
cause they did not check whether a line being put on the proof tree was al- 
ready on the tree. ADEPT checks this in PUT0N2 , and it does not seem to be a 
time-consuming process, as Black feared. Other loops occurred from axioms 
with hidden pitfalls, like (IMPLIES (NOT (NOT Al)) Al), which -would allow to 
a line A2 on the proof tree the reduction (NOT (NOT A2)), which in turn would 
have a reduction (NOT (NOT (NOT (NOT A2)))), etc. ADEPT encountered a very 
similar difficulty in Problem V-F due to the hypothesis £.(a-) = f, (a.) -«S» 
a. = a.. With ADEPT, the problem was circumvented by use of FEQUAL. Black 
also found the form and order of hypotheses to be critical in some problems, 
as did Slagle. To make deductive algorithms independent of such factors would 
almost necessarily introduce an unbearable degree of inefficiency. 

Black experimented with some heuristics to improve his advice-taker. One 
was a bound on the proof tree by means of various length restrictions. This 
purely syntactic strategy was less than satisfying. He discussed possible 
schemes for stopping or avoiding loops. He also proposed grouping axioms and 
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hypotheses according to their main terms or connectives. This is done in the 
present implementation of ADEPT. For one thing, in order to facilitate 
PUT0N2's application of common identities, special lists are kept of all 
homomorphisms and factor groups, so that a separate search of table I for 
this information is unnecessary. Table I itself is split into two parts, as 
might be deduced from Figure 4. All the equalities and implications are on 
one part, and only this part is used directly by SCANW. However, such stream- 
lining is hardly of crucial importance to the efficiency and success of the 
program. (Warren Teitelman has also explored some modifications of Black's 
advice- taker . ) 

This concludes the account of various projects related to the ADEPT pro- 
ject and how ADEPT contrasts with them. No mention has been made of other 
important areas in which many feel that significant progress must be made in 
order for any large advances to be made in artificial intelligence. One is 
learning and another is organization of data and concepts. ADEPT is not a 
learning program, and would not be a suitable foundation for one. Learning, 
of course, refers to machine assimilation of knowledge, as opposed to in- 
creasing the "knowledge" of a program by the addition of more routines by .a 
programmer. Slagle points out that his DEDUGOtT ' (and therefore ADEPT) 
"learns" when given more information, such as a new axiom or definition. In 
a limited sense this is true, particularly from the advice-taker orientation. 
Yet it would appear that real machine learning must involve programmed induc- 
tion and generalization or adaptation facilities. 

As for data organization, even less is known on how to proceed. List 
structures have been standard up until now. Indeed, all of the programs men- 
tioned in this chapter under the general heading of "heuristic", including 
ADEPT, have been written using list processing languages. Without these 
languages these programs would have been almost impossible to write. Still, 
one wonders if a fresh view toward data organization could be helpful. 
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APPENDIX II 



THEOREMS PROVED BY ADEPT 



1) (GROUP G) 

NIL 
(SEMIGROUP G) 

2) (AND (KERNEL K (Fl G H)) (HOMOMORPHISM (Fl G H))) 

NIL 
(SUBGROUP K G) 

3) (AND (KERNEL K (Fl G H)) (HOMOMORPHISM (Fl G H))) 

NIL 
(NORMAL K G G) 

4) (AND (CENTER C G) (ASSOC G)) 

NIL 
(SUBMONOID C G) 

5) (CENTER C G) 

NIL 
(ABELIAN C G) 

6) (AND (CENTER C G) (AND (GROUP G) (SUBSET G C))) 

NIL 
(ABELIAN G G) 

7) (AND (CENTER C G) (AND (SUBSET H C) (GROUP G))) 

NIL 
(NORMAL H G G) 

8) (AND (SUBSET H G) (AND (ABELIAN G G) (GROUP G))) 

NIL 
(NORMAL H G G) 

9) (AND (SUBSET H G) (AND (ABELIAN G G) (GROUP G))) 

NIL 
(ABELIAN H G) 

10) (AND (INTERSECTION I H J) (AND (SUBGROUP H G) (SUBGROUP J G))) 

NIL 
(SUBGROUP I G) 

11) (AND (INTERSECTION I H J) (AND (NORMAL H G G) (NORMAL J G G))) 

NIL 
(NORMAL I G G) 

12) (AND INTERSECTION I H J) (AND (SUBGROUP J G) (NORMAL H G G))) 

NIL 
(NORMAL I J G) 
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13) (AND (IMAGE I (Fl G H)) (AND (HOMOMORPHISM (Fl G H)) (GROUP G))) 

NIL 
(SUBGROUP I H) 

14) (AND (CONJUGATE D Al H G) (AND (GROUP G) (SUBGROUP H G))) 

NIL 
(SUBGROUP D G) 

15) (AND (AND (SUBGROUP H G) (LCOSET D Al H G)) (MEMBER Al H)) 

NIL 
(SUBSET D H) 

16) (AND (SUBSET A G) (AND (LCOSET D (*IDENTITY G) A G) (GROUP G))) 

NIL 
(SUBSET D G) 

17) (AND (SUBSET A G) (AND (LCOSET D (*IDENTITY G) A G) (GROUP G))) 

NIL 
(SUBSET D A) 

18) (AND (SUBSET A G) (LCOSET D (*IDENTITY G) A G)) 

NIL 
(SUBSET A D) 

19) (AND (GROUP G) (AND (SUBSET A G) (AND (LCOSET D (*IDENTITY G) A G) 

(RCOSET E (*IDENTITY G) A G)))) 
NIL 
(SUBSET D E) 

20) (AND (GROUP G) (LCOSET D Al G G)) 

NIL 
(AND (SUBSET G D) (SUBSET D G)) 

21) (AND (GROUP G) (AND (LCOSET D Al G G) (RCOSET EA1GG))) 

NIL 
(SUBSET D E) 

22) (AND (SUBGROUP H G) (LCOSET D Al H G)) 

NIL 
(MEMBER Al D) 

23) (AND (SUBGROUP H G) (NORMALIZER D H G) ) 

NIL 
(SUBSET H D) 

24) (NORMALIZER J H G) 

NIL 
(NORMAL H J G) 

25) (GROUP G) 

NIL 
(NORMAL G G G) 

26) (UNITSET E (*IDENTITY G)) 

NIL 
(NORMAL EGG) 

27) (UNITSET E (*IDENTITY G)) 

NIL 
(SUBGROUP E G) 
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28) (AND (COMMUTATOR Al A2 A3 G) (ASSOC G)) 
(EQUAL2 (*PROD A2 A3 G) (*PROD A3 A2 G)) 
(EQUAL Al (*IDENTITY G)) 

29) (AND (COMMUTATOR Al A2 A3 G) (AND (ASSOC G) (AND (ABELlAN G G) 

(AND QlEMBER A2 G) (MEMBER A3 G))))) 
NIL 
(EQUAL Al (*IDENTITY G)) 

30) (AND (AND (COMMUTATOR Al A2 A3 G) (COMMUTATOR A4 A3 A2 G)) (ASSOC G)) 

NIL 
(EQUAL (*INVERSE Al G) A4) 

31) (AND (AND (COMMUTATOR Al A2 A3 G) (COMMUTATOR A4 A3 A2 G)) (ASSOC G)) 

NIL 
(INVERSE A4 Al G) 

32) (AND (GROUP G) (AND (MEMBER A 1 G) (MEMBER A2 G))) 

NIL 

(AND (EXISTS A3 (EQUAL (*PROD Al A3 G) A2)) (EXISTS A3 (EQUAL 
(*PROD A3 Al G) A2))) 

33) (SUBGROUP H G) 

NIL 

(IMPLIES (AND (MEMBER Al H) (MEMBER A2 H)) (MEMBER (*P80D Al 
(*INVERSE A2 G) G) H)) 

34) (GROUP G) 

(EQUAL2 Al (*INVERSE Al G)) 
(ABELIAN G G) 

35) (GROUP G) 

(AND (EQUAL (*PROD Al Al G) (*IDENTITY G)) (IMPLIES (EQUAL 

(*PROD Al Al G) (*IDENTITY G)) (EQUAL2 Al (*INVERSE Al G)))) 
(ABELIAN G G) 

36) (AND (HOMOMORPHISM (Fl G H)) (KERNEL K (Fl G H))) 
(IMPLIES (MEMBER Al K) (E^UAL Al (*IDENTITY G) ) ) 
(ONETOONE (Fl G H)) 

37) (AND (AND (HOMOMORPHISM (Fl G H)) (KERNEL K (Fl G H)» (ONETOONE 

(Fl G H))) 
NIL 
(IMPLIES (MEMBER A 1 K) (EQUAL A 1 (*IDENTITY G) ) ) 

38) (AND (AND (AND (LCOSET D Al H G) (SETINV IDG)) (SUBGROUP H G)) 

(GROUP G)) 
NIL 
(RCOSET I (*INVERSE Al G) H G) 

39) (AND (AND (LCOSET D Al H G) (LCOSET E A2 H G)) (AND 

(SUBGROUP H G) (ASSOC G))) 
(AND (MEMBER (*PROD (*INVERSE A2 G) Al G) H) (EQUAL 

(*PROD (*INVERSE Al G) A2 G) (*INVERSE (*PROD (*INVERSE A2 G) 

Al G) G))) 
(AND (SUBSET D E) (SUBSET E D)) 

40) (AND (AND (HOMOMORPHISM (Fl G H)) (AND (MEMBER Al G) (INVPNT I 

(Fl G H Al) (Fl G H)))) (KERNEL K (Fl G H))) 
NIL 
(LCOSET I Al K G) 
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41) (AND (NORMAL H G G) (SUBSET K G)) 

NIL 
(NORMAL H K G) 

42) (AND (AND (SUBSET A B) (SUBSET B G)) (AND (CENTRAL C A G) 

(CENTRAL D B G))) 
NIL 
(SUBSET D C) 

43) (AND (HOMOMORPHISM (Fl G H)) (AND (RIMAGE J K (Fl G H)) 

(INVIMAGE I J (Fl G H)))) 
NIL 
(SUBSET K I) 

44) (AND (AND (EPIMORPHISM (Fl G H)) (CENTER C G)) (AND 

(RIMAGE I C (Fl G H)) (CENTER D H))) 
NIL 
(SUBSET I D) 

45) (AND (EPIMORPHISM (Fl G H)) (IMAGE I (Fl G H))) 

NIL 
(SUBSET H I) 

46) (AND (HOMOMORPHISM (Fl G H)) (AND (ABELIAN G G) (IMAGE I 

(Fl G H)))) 

NIL 
(ABELIAN I H) 

47) (AND (AND (HOMOMORPHISM (Fl G H)) (SUBGROUP K G)) (RIMAGE I K 

(Fl G H))) 
NIL 
(SUBGROUP I H) 

48) (AND (NORMAL K G G) (AND (RIMAGE IK (Fl G H)) (EPIMORPHISM 

(Fl G H)))) 
NIL 
(NORMAL I H H) 

49) (AND (AND (HOMOMORPHISM (Fl G H)) (NORMAL K G G)) (AND (RIMAGE I K 

(Fl G H)) (IMAGE J (Fl G H)))) 
NIL 
(NORMAL I J H) 

50) (AND (HOMOMORPHISM (Fl G H)) (AND (SUBGROUP K H) (INVIMAGE D K 

(Fl G H)))) 
NIL 
(SUBGROUP D G) 

51) (AND (HOMOMORPHISM (Fl G H)) (AND (NORMAL K H H) (INVIMAGE D K 

(Fl G H)))) 
NIL 
(NORMAL D G G) 

52) (AND (SUBGROUP H G) (AND (FACTORGROUP B K G) (SUBFGRP C K H G))) 

NIL 
(SUBSET C B) 

53) (AND (SUBGROUP H G) (AND (FACTORGROUP B K G) (SUBFGRP C K H G))) 

NIL 
(SUBGROUP C B) 
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54) (AND (NORMAL H G G) (AND (FACTORGROUP B K G) (SUBFGRP C K H G))) 

NIL 
(NORMAL C B B) 

55) (GROUP G) 

(IMPLIES (MEMBER Al G) (EQUAL (Fl G G Al) (*E>KNTITY G))) 
(HOMOMF (Fl G G)) 

56) (GROUP G) 

NIL 
(ISOMORPHIC G G) 

57) (ISOMORPHISM (Fl G H)) 

NIL 
(ISOMORPHIC G H) 

58) (ISOMORPHISM (Fl G H)) 

NIL 
(ISOMORPHIC H G) 

59) (AND (GROUP G) (AND (ISOMORPHISM (Fl G H)) (ISOMORPHISM (F2 H K)))) 

NIL 
(ISOMORPHIC G K) 

60) (AND (ISOMORPHISM (Fl G H)) (ISOMORPHISM (F2 H K))) 

NIL 
(ISOMORPHIC K G) 

61) (AND (FACTORGROUP D E G) (AND (UNITSET E (*IDENTITY G)) (GROUP G))) 

NIL 
(ISOMORPHIC G D) 

62) (AND (FACTORGROUP D EG) (UNITSET E (*IDENTITY G))) 

NIL 
(ISOMORPHIC D G) 

63) (AND (AND (FACTORGROUP D K G) (KERNEL K (Fl G H))) (EPIMORPHISM 

(Fl G H))) 
NIL 
(ISOMORPHIC D H) 

64) (AND (AND (FACTORGROUP D K G) (KERNEL K (Fl G H))) (EPIMORPHISM 

(Fl G H))) 
NIL 
(ISOMORPHIC H D) 

65) (AND (AND (FACTORGROUP D K H) (FACTORGROUP E I H)) (AND 

(INTERSECTION I H K) (SUBGROUP K H))) 
NIL 
(ISOMORPHIC D E) 

66) (AND (AND (FACTORGROUP D K H) (FACTORGROUP E I H)) (AND 

(INTERSECTION I H K) (SUBGROUP K H))) 
NIL 
(ISOMORPHIC E D) 

67) (AND (AND (FACTORGROUP DIG) (FACTORGROUP B K H)) (AND 

(EPIMORPHISM (Fl G H)) (INVIMAGE I K (Fl G H)))) 
NIL 
(ISOMORPHIC D E) 
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68) (AND (AND (FACTORGROUP DIG) (FACTORGROUP E K H)) (AND 

(EPIMORPHISM* (Fl G H)) (INVIMAGE I K (Fl G H)))) 
NIL 
(ISOMORPHIC E D) 

69) (AND (AND (FACTORGROUP AUG) (FACTORGROUP B KG)) (AND 

(SUBFGRP C K H G) (FACTORGROUP D C B))) 
NIL 
(ISOMORPHIC A D) 

70) (AND (AND (FACTORGROUP A H G) (FACTORGROUP B K G)) (AND 

(SUBFGRP C K H G) (FACTORGROUP D C B))) 
NIL 
(ISOMORPHIC D A) 

71) (AND (ABELIAN G G) (GROUP G)) 

NIL 

(ISOMORPHIC G G) 

(IMPLIES (MEMBER Al G) (EQUAL (Fl G G Al) (*INVERSE Al G))) 
(overriding GENFCN) 

72) (AND (MEMBER Al G) (GROUP G)) 

NIL 

(ISOMORPHIC G G) 

(IMPLIES (MEMBER A2 G) (EQUAL (Fl G G A2) (*PROD (*PROD Al A2 G) 
(*INVERSE Al G) G))) 

(overriding GENFCN) 

73) (AND (GROUP G) (FACTORGROUP D H G>) 

NIL 
(ISOMORPHIC G D) 

(fails on one-to-one, thus proving epimorphic ) 

74) (AND (FACTORGROUP D K G) (AND (FACTORGROUP E I H) (AND 

(RIMAGE I K (Fl G H)) (EPIMORPHISM (Fl G H))))) 
NIL 
(ISOMORPHIC D E) 

(fails on one-to-one, thus proving epimorphic ) 

75) (AND (LCOSET D Al H G) (AND (LCOSET E A2 H G) (AND (ASSOC G) (AND 

(MEMBER Al D) (SUBSET D E))))) 
NIL 
(MEMBER (*PROD (*INVERSE A2 G) Al G) H) 

76) (AND (SETINV I H G) (AND (NORMAL H G G) (SUBGROUP H G))) 

NIL 
(AND (SUBSET H I) (SUBSET IE)) 

77) (AND (SETINV I H G) (SUBGROUP H G)) 

NIL 
(SUBGROUP I G) 

78) (AND (SETINV I H G) (AND (NORMAL H G G) (AND (SUBGROUP H G) (ASSOC G)))) 

NIL 
(NORMAL I G G) 

79) (AND (CENTER C G) (ABELIAN G G)) 

NIL 
(SUBSET G C) 
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80) (HOMOMORPHISM (Fl G H)) 

(AND (AND (EQUAL (*SEQ (A9 N2) 1 A) (A9 1)) (EQUAL (*SEQ (F9 A B 
(A9 N2)) 1 B) (F9 A B (A9 1)))) (AND (EQUAL (*SEQ (A9 N2) 
(•SUCCESSOR N3) A) (*PROD (*SEQ (A9 N2) N3 A) (A9 (*SUCCESSOR N3)) 
A)) (EQUAL (*SEQ (F9 A B (A9 N2)) (*SUCCESSOR N3) B) (*PROD (*SEQ 
(F9 A B (A9 N2)) N3 B) (F9 A B (A9 (*SUCCESSOR N3))) B)))) 

(FEQUAL (Fl G H (*SEQ (Al Nl) N G)) (*SEQ (Fl G H (Al Nl)) N H)) 

81) (HOMOMORPHISM (Fl G H)) 

(AND (AND (EQUAL (*SEQ A8 A9 1 A) (A8 A9 1)) (EQUAL (*SEQ A8 A9 

(♦SUCCESSOR Nl) A) (*PROD (*SEQ A8 A9 Nl A) (A8 A9 (*SUCCESSOR Nl)) 
A))) (EQUAL (F9 A B (A8 A9 Nl)) (A8 (F9 A B A9) Nl))) 

(FEQUAL (Fl G H (*SEQ Al Al N G)) (*SEQ Al (Fl G H Al) N H)) 

82) (AND (SEMIGROUP G) (MEMBER Al G)) 

(AND (EQUAL (*EXP A9 1 G) A9) (EQUAL (*EXP A9 (*SUCCESSOR Nl) G) 

(*PROD (*EXP A9 Nl G) A9 G))) 
(MEMBER (*EXP Al N G) G) 

83) (AND ($SUBGROUP (H 1) G) ($SUBGROUP (H (*SUCCESSOR N)) G)) 
(IMPLIES (AND ($SUBGROUP A C) ($SUBGROUP B C)) ($SUBGROUP 

(*INT A B) C)) 
($SUBGROUP (*FININT H N) G) 

84) (AND ($N0RMAL (H 1) G G) ($NORMAL (H (SUCCESSOR N)) G G)) 

(IMPLIES (AND ($NORMAL A C C) ($NORMAL B C C)) ($NORMAL (*INT A B) C C)) 
($NORMAL (*FININT H N) G G) 

85) (NULL) 

(AND (AND (IMPLIES (AND (GROUP A) (LEP (ORDER A) 1)) (EQUAL A 
(*UNITSET (*IDENTITY A)))) (IMPLIES (GROUP A) (AND 
($HAS*MAX*NORM*SUB A) (AND (GROUP (*MAX*NORM*SUB A)) 
(IMPLIES (LEP (ORDER A) (*SUCCESSOR Nl)) (LEP (ORDER 
(*MAX*NORM*SUB A)) Nl)))))) (IMPLIES ($HAS*COMP*SERIES A) 
(EXISTS N3 (EXISTS (B N4) (COMP*SERIES ((B N4) N3) A))))) 

(IMPLIES (AND (GROUP G) (LEP (ORDER G) N)) ($HAS*COMP*SERIBS G)) 

86) (AND (AND (UNMARRIED*FEMALE N7) (UNMARRIED*MALE N5)) (AND (IMPLIES 

(NOT*THINK*DEAD N8 N6) (CAN*STAY*ALIVE N5)) (AND (IMPLIES 
(CAN*APPEAR*SAFELY N6) (CAN*PRODUCE N5 N6)) (AND (IMPLIES 
(NOT*ACCUSING N7 N6) (CAN*APPEAR*SAFELY N6)) (IMPLIES 
(NOT*CLAIMING N7 N6 ) (NOT*ACCUS ING N7 N6 ) ) ) ) ) ) 
(AND (IMPLIES (EXISTS Nl (CAN*PRODUCE Nl N2)) (NOT*THINK*DEAD N8 N2)) 
(AND (IMPLIES (MARRIED N7) (NOT*CLAlMlNG N7 Nl)) (AND (IMPLIES 
(EXISTS Nl (CAN*MARRY Nl N2)) (MARRIED N2)) (AND (IMPLIES (EXISTS Nl 
(CAN*PROPOSE Nl N7)) (EXISTS Nl (CAN*MARRY Nl N7))) (IMPLIES (AND 
(UNMARRIED*FEMALE N2) (EXISTS Nl (UNMARRIED*MALE Nl))) (EXISTS Nl 
(CAN*PROPOSE Nl N2))))))) 
(CAN*STAY*ALIVE N5) 
(N5 - Koko 

N6 = Nankipoo 

N7 = Katisha 

N8 * Mikado) 
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APPENDIX III 



LISTING OF THE PROGRAM 



The reader who attempts to use the listings included in this appendix 
will find that they do not conform in all details with the descriptions given 
in the body of this report. Any discrepancies of this sort were introduced 
solely to make the report easier to comprehend, and do not really misrepresent 
the actual operation of the program. 

The various LISP functions are made into a system by means of a file such 
as COMPIL. Following execution of this file, the user may call ADEPT as a 
LISP function of two arguments. The first of these is to be either "NIL" or 
"MODEL", and determines whether or not the MODEL heuristic is to be in effect. 
The second argument is to be either "NIL" or "INDUCT", and is the present 
means whereby NSOLVE can be called, when use of mathematical induction is 
desired. (Warning: Even with the special LISP system available to the author 
and extensive use of REMOB, ' it was not possible to load all the functions 
into the system at once by use of COMPIL as presented here. This would pre- 
sumably be the case with most LISP systems.) 

The file DEFNS DATA contains the sufficient conditions and definitions 
used by the author. The two remaining lists in this file represent certain 
of the built-in axioms and lattice information for use with the MODEL heuris- 
tic, respectively. 
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INDEX T0 LISTING 



ADDANTSC, 162 
ADDCONSQ, 162 
ADEPT, 141 
ALLMATCHl, 169 
ALLSUBSTS, 165 
ALLVBLES, 164 
ANDARGS, 162 
ANDRND, 169 
ANDTSRMS, 169 
A?PRNDM, 162 
ARGOF1, 166 
ASSOCM, 165 

ASTERISKED, 165 
ATMS, 168 

CADDAAR, 166 

CADDDAAR, 166 

CADDDAR, 166 

CHBCKMODEL, 160 

CHNGW, 165 

OOMFIL, 172 

COMPOSITION, 155 

CONNECTIVE, 164 

DEFNS DATA, 170-171 

DELPR, 168 

DELTF, 168 

FIFTH, 165 

FREEVBLE, 168 

GSNFCN, 154 

6ENSET, 160 

GENSUBST, 164 

6ENVBLE, 168 

6FIND, 169 

GMATCH, 163 

6MATCH1, 163 

CMEMB, 169 



GTFKM, 161 

HFM, 159 

HOMOMF, 153 

D4PMATCH, 163 

INVM, 158 

INVM2, 158 

INVREDO, 167 

INVSDB, 167 

ISOLVE, 142 

MASK, 162 

MATCH1, 162 

MEET, 160 

MEM0F1, 167 

MIRGEA, 168 

MODEL MAKE, 160 

MONOMF, 156 

NEXT, 166 

NOLOOK, 165 

NOWWHICH, 160 

NSOLVE, 143 

ON, 164 

ONLY, 153 

ONLYMEMB, 168 

0N2, 149 

0N2AVBR, 162 
PMATCH, 165 
PRODARGS, 167 
PDTN2 , 149 
POTONl, 148 
PUT0N2, 149 
PDT2, 149-150 
RESRV, 164 
ROFV, 165 
ROFW, 166 
RFLCE, 166 
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RPLCEF, 168 
RPLC1, 169 
RPTSUB, 167 
SCANW, 146-147 
SCNX, 152 
SIFT, 158 
SIXTH, 165 
SLVX, 153 
SOLVE, 144-145 
SOLVEX, 151 
SOLVX, 143 
SOLVXP, 153 
SPREAD, 165 
SUPSUB, 164 
SUPXEC, 164 
SWMEMB, 160 
TACK, 168 
TERMS, 164 
VBLES, 164 
VERIFY, 157 
WLDFN, 155 
WLDFN1, 155 
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ADEPT LISP 

DEFINE! (1ADEPT(LAMB0A(QM5 WH) 00010 

(PR0GIH1 W X Y Zl Z2 Z3 Z4 N 26 Q QF1 U Ul QL1 QL2 XX CX CXI LON 00020 

QM1 QM2 0H3 QM4 QM6 FQM2 FQH3 FQH4 U2 113 ZN VV1 VV2 CL Z4A Z4BI 00030 

(SETQ N (QUOTE NILD) 00040 

IFILESEEKIQUOTE DEFNS) (QUOTE DATA)) 00050 

(SETQ X (READ!) 00060 

(SETQ Y (READ)) 00070 

(SETQ XX (READ)) 0008C 

(SETQ QM1 (READ)) 00090 

(FILEENDRDIQUOTE OEFNSKQUOTE DATA)) 00100 

HI (SETQ Zl (QUOTE((NILL.A)(NILL.B)(NILL.CI (NILL.D) (NILL.E > 00110 

(NILL.GXNILL.HKNILL.IXNILL.JMNILL.KMNILL.M)))) 00120 

(SETQ Z2 (QU0TE((NILL.F1KNILL.F2KNILL.F3XNILL.F4KNILL.F5) 00130 

(NILL.F6KNILL.F7KNILL.F8KNILL.F9II) ) 00140 

(SETQ Z3 (QU0TEI(NILL.A1)(NILL.A2KNILL.A3)(NILL.A4XNILL.A5) 00150 
(NILL.A6XNILL.A7XNILL.A8)(NILL.A9KNILL.A10XNILL.A11KNILL'.A12II)) 00160 

(SETQ ZN (QU0TE((NILL.NKNILL.N1XNILL.N2)(NILL.N3I 00170 

tNlLL.N4)(NILL.N5l(NILL.N6)(.NILL.N7XNILL.N8) (NILL.N9I) I) 00180 

(SETQ Q NIL) 00190 

(SETQ QM2 NIL) (SETQ QM3 NILKSETQ QM4 NIL) (SETQ QM6 NIL) 00200 

(SETQ QL1 NIL) 00210 

(SETQ QL2 NIL) 00220 

(SETQ Z4 1XSETQ Z4A DISETQ Z4B 1) 00230 

(SETQ Z6 NIL) 00240 

(SETQ LON NIL) 00250 

(SETQ VV1 NILKSETQ VV2 NIL) 00260 

(SETQ Wl NIL) 00270 

(SETQ W NIL) 00280 

(SETQ U2 (ROFLXUM 00290 

(SETQ Ul (ALLVBLESIVBLES U2))) 00300 

(SETQ Zl (RESRV Ul Zl) I 00310 

(SETQ Z2 (RESRV Ul Z2)) 00320 

(SETQ Z3 (RESRV Ul Z3)l Q0330 

(SETQ ZN (RESRV Ul ZN)) 00340 

(SETQ CL (ALLVBLES(TERMS U2 ( ALLVBLESI VBLES U2))))l 00350 

(SETQ U3 (ROFLXO)) 00360 

(SETQ U (RDFLXI I) I 00370 

(CONDI (EQUALICAR U) (QUOTE IMPLIESIXGO H1A) ) ) 00380 

(SETQ Ul (ALLVBLES(VBLES U) ) ) 00390 

(SETQ Zl (RESRV Ul Zl) I 00400 

(SETQ Z2 (RESRV Ul Z2)l 00410 

(SETQ Z3 (RESRV Ul Z3)) 00420 

(SETQ ZN (RESRV Ul ZN)) 00430 

H1A (CONDI (EQUAL (CAR U2I (QUOTE AND)) (SETQ Ul (PUTONKCONS Z4A N) U2))l 00440 

(T (SETQ Ul (PUTONKCONS Z4A Z4B) U2>).1) 00450 

(SETQ Z4B (ADD1 Z4B)) 00460 

(COND((NULL U3KG0 HIBD) 00470 

(SETQ U2 U3) 00480 

(SETQ U3 NIL) 00490 

(GO H1A) 00500 

H1B (C0N0((McMBER(CAR U) (QUOTE ( I SOHORPHIC ONEONE I ) ) 00510 

(SETQ Ul IISOLVE Ul ) I 00520 

((NULL WHKSETQ Ul (SOLVE U))l 00530 

(T (SETQ Ul (NSOLVE U)D) 00540 

(GO HI I 00550 

))))) STOP))) 00560 
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ISOLVE LISP 
DEFINE(C(IS0LVE(LAHBDA(UI(PR0G(U1 EQN FV FV2I 
XI (CONDI (NULL CLIIGO X2II) 

ISETQ Ul IGTFRHICAR CL I (QUOTE Y) NIL Z*B 1 1 

(SETQ CL (CDR CLII 

(SETQ Z4B (AOD1 Z4BII 

(GO XI) 
X2 (SETQ FV (CONS VVl VV2II 

(SETQ FQN2 QM2KSETQ FQH3 QN3MSETQ F8H4 QM4I 

(SETQ EQN IRDFLXIIII 

(CONDI (EQUAL (CAR LI (QUOTE ONEONEIIIGO BID 

I SETQ Ul IMEMOF1 VVl IQUOTE I SOMORPH I SM I II 
X4 I CONDI (NULL U1KGO X3II 

IIEQUALICDAAR U1KC0R UIIIGO F6III 

ISETQ Ul ICOR Ulll 

IGO X4I 
X3 ICONOIINULL EQN 1 1 SETQ EQN (GENFCNICOR Ulllll 

(CONDI (NULL EQN) (GO Fill I 

(PRINT EQNI 

(SETQ VVl ICAR FVIIISETQ VV2 ICOR FVII 

ISETQ QN2 FQM2IISETQ QM3 FQM3IISETQ QM4 FQN4HSETQ QH6 NILI 

ISETQ Ul IPUTON1ICONS Z4A Z4B) EQNI I 

ISETQ Z4B IAD01 Z4BII 

ISETQ FV2 ICONS VVl VV2II 

I CONO 1 1 EQUAL I CAR EQNI IQUOTE IMPLIES!) (GO All) 

ISETQ Ul IHLDFNICDR EQNI 1 1 

ICONOIINULL UIIIGO F2II) 

(SETQ Ul (CAAOR EQN 1 1 

(SETQ VVl (CAR FV2IMSETQ VV2 (COR FV2I) 

(SETQ QH2 FQH2KSETQ QH3 FQH3KSETQ QM4 FQM4I ISETQ QH6 NILI 

IGO All 
A ISETQ Ul (CAAR(CDAOOR EQNI 1 1 
Al ISETQ Ul I SOLVEI LIST IQUOTE HOMOMF) ICONS Ul (COR Ulllll 

(CONO I (NULL UIKGO f3HI 

(SETQ Z6 NILI (SETQ LON NILI 

ISETQ Wl NILI 

ISETQ W NILI 

ISETQ VVl ICAR FV2IIISETQ VV2 ICOR FV2II 

ISETQ QN2 FQN2I ISETQ QH3 FQH3I ISETQ 9H4 FQM4HSETQ QH6 NILI 

I CONO ((EQUAL (CAR EQNI (QUOTE IMPLIES) I IGO PI I) 
PI ISETQ Ul ISOLVEILISTI QUOTE ONTOI (CONS(CAADR EQNI (CDR Ulll I) 

ICONOIINULL UIIIGO F4III 

ISETQ Z6 NILI ISETQ LON NILI 

ISETQ HI NILI 

ISETQ H NIL) 

(SETQ VVl (CAR FVIIISETQ VV2 (COR FVII 

(SETQ QN2 FQM2KSETQ QN3 FQH3KSETQ QN4 FQM4HSETQ QH6 NIL) 
B (SETQ Ul (NONONF EQN Nil 

ICONOIINULL UIIIGO F5DI 
C IPRINTIQUOTE QEDII 

{RETURN Tl 
Fl I PR I NT I QUOTE I CANNOT FIND RELATING FUNCTION) 1 1 

IGO HI I 
F2 IPRINTIQUOTEICANNOT PROVE FUNCTION HELL DEFINED! 1 1 

IGO HI I 
F3 IPRINTIQUOTEICANNOT PROVE FUNCTION HOHOHORPHICI 1 1 

IGO HI I 
F4 IPRINTIQUOTEICANNOT PROVE FUNCTION EPIHORPHICI 1 1 

IGO HI I 
F5 IPRINTIQUOTEICANNOT PROVE FUNCTION HONOHORPHICI 1 1 

HI I RETURN Fl 
F6 IPRINT Ul 

IPRINTIQUOTE BECAUSE! I 

IPRINTILISTIQUOTE ISOMORPHISM) (CAAR Ullll 

(GO CI 
P (SETQ Ul (CAODR EQNI! 

(SETQ VV2 (SUBST Ul EQN VV2II 

(SETQ EQN Ull 

(GO PI I 
1 1 ) ) ) STOP 1 1 1 1 1 1 
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NSOLVE LISP 

DEFINE! ttNS0LVEtLAHBDA(UltPR06IUl FV) OOOIO 
ISETQ FV (CONS Wl VV2IHSETQ FQH2 QM2HSETQ F0H3 QM3HSETQ F0M4 QM4I 00020 

ISETQ Ul (SUBST 1 (QUOTE N> Ull 00030 

<PRINT(QUOTE( ATTEMPTING PROOF BY INDUCTION} M 00040 

ISETQ Ul (SOLVE Ull) 00050 

(CONDI (NULL Ull (60 Fit II 00060 

(PRINT I QUOTE I BASIS STEP PROVEDIII 00070 

ISETQ LON NIL I 00080 

ISETQ. Z6 NILI ISETQ HI NIL) ISETQ H NIL) ISETQ Wl (CAR FVIKSETQ VV2 00090 

(COR FVIKSETQ 6N2 FQM2MSETQ QH3 FQN3KSETQ CM4 FQN4HSETQ QM6 NIL) 00100 

(SETQ Ul (PUTONKCONS Z4A Z4B I (SUBST (QUOTE EQUAL) (QUOTE FEQUALI Ull) 00110 

(SETQ Z48 (A001 Z4BII 00120 

(SETQ U (SUBSTI QUOTE (-SUCCESSOR NIKQUOTE Nl Ul) 00130 

(SETQ ZN (RESRV(QUOTE(NII ZNII 00140 

(SETQ Ul (SOLVE I CONS (QUOTE INDUCTION) Ull I 00150 

(CONDI (NULL Ull (60 F2D) 00160 

(PRINT(QU0TE( INDUCTIVE STEP PROVED) II 00170 

(PRINT(QU0TE QEDII 00180 

(RETURN Tl 0019C 

Fl (PRINT(QUOTE(CANNOT COMPLETE BASIS STEPIII 00200 

(RETURN Fl 00210 

F2 (PR INT I QUOTE (CANNOT COMPLETE INDUCTIVE STEPIII 00220 

(RETURN Fl 00230 

111)1 STOPIIII) 00240 



SOLVX LISP 
0EFINE(((S0LVX(LAMBDA(UI(PR06(U1 U2 US S) 

(CONDI I0NICA0DR U> ZNX60 BID 

(60 EXTEND) 
B (SETQ Ul (CAOOOR U)) 

B1A (CONDI (EQUAL (CAR Ul) (QUOTE EXISTS)) (GO 81)1 
((CONNECTIVE I CAR Ull I (60 B2III 

(SETQ U2 IMEM0F1 Wl (CAR Ull 1 1 
B4A (CONDI (NULL U2HG0 63)11 

(SETQ U3 I SNATCH (COR Ull (CAR U2))) 

(C0N0((NULL U3II60 B4D) 

(SETQ US (PUTN2 NIL (CONSICAR Ul) 
(CAR U21XCA0DOAR U))) 

(CONDI (NULL US) (GO B4III 

(RETURN U3I 
B4 ISETQ U2 ICOR U2II 

160 B4AI 
Bl ISETQ Ul ICAOOR Ull I 

160 B1A) 
B3 ISETQ U2 IHEH0F1 VV2 (QUOTE IMPLIES))) 
B3A (CONDI (NULL U2MG0 B2>) 

IIEQUALICAAOAR U2) I QUOTE AND)) (GO 65)1 
IIEQUALICAAOAR U2IICAR Ull) (GO B6D) 
BSB ISETQ U2 (COR U2)> 

160 B3A) 
B6 ISETQ U3 ICMATCHICDR UDICOADAR U2))l 

ICONOIINULL U3)IG0 B38))> 

ISETQ U3 IPUTN2 NIL ICAAR U2HCADDDAR U))l 

ICONOIINULL U3)IG0 B3B)> 

((MEMBER U3 (QUOTE (DONE NEXT) ) ) IRETURN U3>>> 

ISETQ S U3) 

(GO 838) 
85 I CONO 1 1 MEMBER I CAR Ul) IATMSICDADAR U2))) 

ISETQ U2 {APPEND U2 ILISTILISTICAAR U2) ICARICDADAR U2))l 
ILISTICAAR U2IICADRIC0ADAR U2IIIIIIII 

160 BSB) 
B2 I CONO 1 1 NOT I NULL SI) IRETURN SHI 
EXTENO IRETURN NILI 
1 1 1 1 1 STOP 1 1 1 1 1 1 
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SOLVE LISP 
OEFINE((( SOLVE (LAMBOA (U) 
IPROGIU1 U2 U3 U4 Z5 SI 

(CONDI (EQUAL (CAR UKQUOTE INDUCTION) MGO III) 
H (SETQ Ul (PUTN2 NIL U NILII 

(CONDI (EQUAL Ul (QUOTE DONE)) (GO H4III 
H2 (CONDI (EQUALICAAAR WXQUOTE RED) (GO H3) I ) 
(SETQ Ml (APPEND HI (CONSICAR M) NIL))) 
(SETQ W (CDR W)) 
(GO HZ) 
H3 (SETQ W (CONS (SUB ST (QUOTE PNTXOUOtE RED (CAR U))(CDR Wll) 
H3A (CONOKEOUALICAOAR H) (QUOTE IMPLIES)) (GO HHII 
((EQUAL Z5 (QUOTE INDUCTION) ) (GO 11)1) 
(SETQ U (SCANU NIL NIDI 
H36 (CONOi (EQUAL U (QUOTE OONEDIGO H4M 
((EQUAL U (QUOTE NEXTVHIGO H5A)) 
((EQUAL U (QUOTE NEXT)) (GO H5)l) 
HH (SETQ U (CAR Ul) 

(CONDI (CONNECT! VE(CADR UIKGO H6))l 

(SETQ Ul (GTFRMICDR Ul (QUOTE XI (CADDO AR Ul NILII 

(CONOKNULL UIKGO H8)l 

((EQUAL Ul (QUOTE DONE)) (GO H41II 
(GO H5AI 
H8 (SETQ Ul (ALLVBLEStTERMSICOR Ul (ALLVBLESI VBLES(CDR Ullllll 

(SETQ S NIL) 
H8A (CONOKNULL UIKGO HSBIII 
(SETQ U2 (CONSICAR Ul I NILII 
(SETQ U3 (CDR Ulll 
(SETQ Ul NILI 
H81 (CONDI (NULL U3KG0 H82II 

KEQUAL(CAAR U2KCAAR U3)KSETQ U2 (APPENO U2 

(CONSICAR U3) NIL)))) 
(T (SETQ Ul (APPEND Ul (CONS(CAR U3) NIDIIII 
(SETQ U3 (CDR U3II 
(GO H81I 
H82 (CONOKNULL U2KGO H83III 

(SETQ U3 (GTFRMICAR U2KQUOTE Y) NIL Z4BII 
(CONOKNULL U3KGO H821II 

((EQUAL U3 (QUOTE DONE) I (GO H4II 
I (EQUAL U3 (QUOTE NEXT)) (GO H5A1I1 

(( EQUAL (CAAR U2KQU0TE ISOMORPHISM )) (SETQ Z4B (AOD1 Z4BII1I 
(SETQ ZS (QUOTE GEN)) 
H821 (SETQ U2 (COR U2>) 

(GO H82) '■ 
H83 (SETQ Z4B (AOD1 Z4BI) 

(GO H8A) 
H8B (CONOKNULL Z5K GO H9II 

KNOT (NULL Ul It SETQ ZS NIL) I I 
(SETQ U3 (SCANW NIL Z5)) 
(SETQ Z5 NIL) 
(CONOKNULL U3KGO H9)ll 
(SETQ U U3I 
(GO H3B) 
H9 (CONOKNULL UK GO HIOAII 
KEQ S NKGO HIO))) 
(SETQ S Nl 

(SETQ U2 (ALLVBLES(VBLES(COR Ullll 
(CONOKNULL U2KGO HIOII) 
H91 (SETQ Ul (APPEND Ul (ARGOFKCAR U2I Will) 
(SETQ U2 (CDR U2I) 
(CONOKNOTINULL U2)KGO H9DI) 
(GO H8A) 
H6 (CONDKEQUALICADR U) (QUOTE IMPLIES) I (GO H6A1I 
KEQUALICAOR UKQUOTE DEFER)) (GO H6E ) ) ) 
(GO H8I 
H6A (SETQ Ul (ALLVBLESI VBLESICAOOR Ul )) ) 
(SETQ Ul (RPLC1 Ulll 
(CONOKNOTINULL U1IKSETQ U (CONS(CAR Ul (GENSUBST 

(CAR UDICDR U1IICDR Ullllll 
(SETQ Ul (PUTONKCONS Z4A Z4BKCAD0R U))l 
(SETQ Z4B (AOD1 Z4BI) 
(CONOKEUUAL Ul (QUOTE DONE)) (GO H4) I 

((EQUAL Ul (QUOTE NEXT)) (GO H5AIII 
(SETQ Ul (PUTN2 NIL (CAODDR UKCAOODAR U))l 
H6A1 (CONOKNULL UIKGO H8)l 

((EQUAL Ul (QUOTE DONE) I (GO H4III 
(GO H5AI 
H6E (SETQ Ul (PUTN2 NIL (CAODR U) (CADDDAR Ul I > 

(GO H6A1I 
HIO (CONDKEQUALICADR UKQUOTE EXISTS)) (GO H6B))> 
HIOC (SETQ U NIL) 
(SETQ Ul CD 
(GO H8A) 
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H10A (COND((EQUAL(CAOAR W) (QUOTE EXISTS)) (GO H6BM 

(( EQUAL (CAOAR MM QUOTE FEQUALIXGO H6DII) 
H10B (PRINT(QUOTE(ORASTIC MEASURES NEEDED))) 

(PRINT(QUOTE(TYPE YES IF POINTER SHOULD BE MOVED DOWN))) 

(SETQ U (RDFLXO)) 

(CONDdEQUAL U (QUOTE YES))(GO H5)>) 

(60 H4FI 
H6B (SETQ Ul (SOLVEXICAR N)>> 
H6B1 (CONDUNULL UIKGO H6BAM 

((EQUAL Ul (QUOTE NEXT)) (60 H5I ) 
((EQUAL Ul NKGO H5A)) 
((EQUAL Ul (QUOTE DONE)) (GO H4) ) I 
H68A (CONDI (NOT (NULL UIKGO H10C>>) 

(SETQ Ul (SOLVXICAR WD) 

(COND((NOT(NULL UDKGO H6B1D) 

(PRINTIQUOTE EXISTS)) 

(GO H10B) 
H6D (SETQ Ul (HONOMF(CDAR Ml)) 

(CONDdEQUAL Ul (QUOTE NEXT)) (GO H5)l 

((NOT! EQUAL Ul (QUOTE DONEDXGO H10B))) 
H4 (PRINT VV1XPRINT VV2XPRINT U1XPRINT Wl 

(RETURN T) 
H51 (SETQ Z4B (A0D1 Z4BI) 
H5 (COND((NULL (NEXT NIDXGO H5E))) 

(GO HH) 
H5A1 (SETQ Z4B (ADD1 Z4BM 
H5A (CONDI (NOT(NULL(NEXT NIL)))(GO H3AI)) 
H5E (PRINT(QUOTE(PANIC HSE SOLVE) >> 
H4F (PRINT VV1)(PRINT VV2XPRINT N1XPRINT W) 

(RETURN F) 

I (SETQ Z5 (CAR U) I 
(SETQ U (CDR Ul) 
(GO HI 

II (SETQ ZS NIL) 
(GO HH) 

>)))) STOP)))) ))) 
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SCANW LISP 

0EFINE(XSCANU(LAMBDA(L LL) 
(PR06(S SI U Ul U2 U3 U4 U5 U6 UT U8 FLG) 
Al (SETQ S NIL) 
(SETQ FL6 NIL) 

(SETQ Ul (ONLYIAPPEND HI U) (QUOTE! VERA2I I) ) 
A1A (CONDXNULL U1XGC A2)) 

((HEHBER(CAODDAAR Ul) Z6XG0 AA)) 

((MEMBER! QUOTE HEAOXCAOAAR U11XSETQ FLG ICONS (SIXTH 
(CAAR Ul>) FLG)))) 
AA (SETQ Ul (COR Ul)) 

(GO A1A) 
A2 (CONOXNULL WXSETQ Ul NIL)) 

((NULL LLXSETQ Ul (CONS (CAR W) NIL))) 
((EQUAL LL NXSETQ Ul (COR W)>) 
(T (SETQ Ul M))) 
A2A (CONDXNULL U1XGO C)>) 

(SETQ U2 (CAR Ul)) (SETQ Ul (COR Ul)) 
(COND((NOLOOK(CADOOAR U21X60 A2A)) 

XMEMBER(CAOR U2) (QUOTE( IMPLIES FEQUAL DEFER ORXXGO A2AM) 
(SETQ U (ROFV(FIFTH(CAR U2)) FLG)) 
(SETQ U4 NIL) 
(CHNGU U2) 
A2B (CONO((NULL UXGO A3))) 

(SETQ U3 (CAR Ul) (SETQ U (COR UM 
(CONDI ( EQUAL (CAOR U3XQUOTE IMPLIES) XGO B4X 
(( EQUAL (CAOR U2XQUOTE EXISTS)XGO A28)> 
(( MEMBER! CONS (CADOOAR U2XCDAR U3>) L0NX60 A2B>) 
((EQUAL(CADR U3XQUOTE EQUAL) XGO B3)> 
((EQUAL (CAOR U3X QUOTE EQUAL2)XG0 B2)) 
((EQUAL (CAOR USX QUOTE ASSOC) XGO 66)1) 
(GO A2B) 
A3 (CONOXNULL U4XG0 A2AI) 
((NULL SXGO A3U) 
XNOLOOK(CAOOOAR U2IXGO A2A)>) 
A31 (SETQ US (CAAR U4)> 
(SETQ U6 (CDAR U4)l 
(SETQ U7 (COR U4X 
(SETQ U4 NIL) 
A3A (CONOXNULL U7XGO A3B)> 

((EQUAL U5 (CAAR U7 IX SETQ U6 (APPEND U6 (CDAR U7)l)> 
(T (SETQ U4 (APPENO U4 (CONSICAR U7) NIL))))) 
(SETQ U7 (CDR U7)) 
(GO A3 A) 
A3B (COND((MEMBER(CAOR U2) (QUOTE (EQUAL EQUAL2) )) (SETQ U (CADDR U2>>> 
(T (SETQ U (CDR U2>>)> 
(SETQ U6 (SUPXEC U6 U)) 
A3D (CONDXNULL U6)(60 A3)) 

((MEMBER(CADR U2) (QUOTE (EQUAL EQUAL2))) 

(SETQ U (LIST(CADR U2XCAR U6XCADO0R U2I1II 
(T (SETQ U (CAR U6))>) 
(SETQ U6 (CDR U6)l 
(SETQ U3 (PUTN2(CONO(( MEMBER (CAAR U2XQU0TE(REL1 PNTIX 

NILXT (CAAR U2>>> U (CADODAR U2))l 
(CONO((NULL U3XGO A30I) 

((EQUAL U3 (QUOTE DONE) X RETURN U3I1 
((EQUAL U3 (QUOTE NEXT) XGO A3E))I 
A301 (SETQ S N) 

(GO A3D) 
A3E (CONDXNULL LL) (RETURN(QUOTE NEXTV)))) 
(SETQ SI U3I 
(GO A301I 
B2 (SETQ U5 ( ALLSUBSTS(CAOOR U3XCADD0R U3) 
(COR U2XCDAR U3>)> 
(CONDXNULL USXGO B3M) 
(SETQ U4 (APPEND U4 (CONS U5 NIL))) 
B3 (SETQ U5 ( ALLSUBSTS(CAOOOR U3XCADDR U3I 

(CDR U2XCDAR U3)>) 
B3A (CONO((NOT(NULL U5)XSETQ U4 (APPENO U4 (CONS U5 NIL))))) 

(GO A2B) 
B6 (CONO((NOT(MEMBER(QUOTE •PRODXALLVBLES( ATMS (CDR U2)l>>> 
(GO A2B))) 
(SETQ U5 (ASSOCMI CADDR USX CDR U2XC0AR U3>)> 
(GO B3A) 
84 (SETQ U5 (ALLMATCHKCAOOOR U3XC0R U2)l) 
841 (CONDXNULL U5XGO B8)) 
((NULL SXGO B41A)) 
XNOLOOK ( CADDO AR U2IXGO A2A)>> 
B41A (SETQ U6 (PUTN2(C0N0( (MEMBERICAAR U2XQU0TEIREL1 PNTXI 
NILXT (CAAR U2) ) XGENSUBST(CDAR USXCAAR U5I 
(CAOOR U3)X CADODAR U2))l 
(CONDXNULL U6XG0 B4AX 

((EQUAL U6 (QUOTE DONE) > (RETURN U6)l 
((EQUAL U6 (QUOTE NEXT) XGO B4BM) 
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B41B ISETQ S N) 

842 I CONO I ( EQUAL ( CAAR U2) (QUOTE RED I (GO B4CI I 

It EQUAL (CAAR U2 1 1 QUOTE PNTIMSETQ SI I QUOTE NEXT) 1)1 
B43 (SETQ LON (CONS(CONS(CADODAR U2XCOAR U3)> LON)) 
B43A (SETQ US (COR USD 

(60 B4D 
B4A (CONOKONIGENSUBSTICDAR USKCAAR U5MCA00R U3)l 
(R0FH(CAO0OAR U2DM60 B42D) 
(GO B43A) 
B4B (CONOKNULL LL) (RETURN (QUOTE NEXTVIMI 
(SETQ SI U6i 
(GO B41BI 
B4C ISETQ U6 (GFIND(CA00DAR U2II) 

(CONOI ( EQUAL (CAAR U6) (QUOTE RELDISETQ U (SUBST 

(SUBST( QUOTE REL1MQU0TE RELI U6) U6 Hill) 
(GO B43I 
BS (CONDI (MEMBER! CONS (CAOOOAR U2IIC0AR U3II LON) (GO A2BI 1 1 

ISETQ U5 ItNPMATCHICADOOR U3KC0R U2II) 
A10 (CONDI INULL U5IIG0 A2BII 
IINULL SI (60 B81II 
IINOLOOKICAOOOAR U2IIIG0 A2AIII 
B81 (SETQ U6 (GENSUBST(CDAR USKCAAR U5KCADDR U3III 
I CONDI (ON U6 (APPEND VV1 VV2IIIG0 B8AII 
((EQUAL (CAR U6I (QUOTE ANDIIIGO A10CIII 
A10B ISETQ U7 I0N2AVER U6II 
IC0N0IINOTINULL.U7IIIGO AMI I 

((EQUAL (CAAR U2 1 1 QUOTE A2IIIG0 A10AII 
IINULL LI 160 A10FII 
I (EQUAL L U6IIG0 A10GIII 
A10A ISETQ US ICOR US)) 

IGO A10) 
A106 ICONOIINOTIEQUALICAOR U2 I (QUOTE EXIST!) I IGO A10AIII 
(SETQ S ISCNX S ICAOR LIICAR U5IICAD00R U3I U2II 
I CONDI (EQUAL S I QUOTE OONEI I (RETURN SI I 

({ATOM S)I60 A10AM) 
ISETQ L ICOR S)) ISETQ S (CAR SI I 
160 A10A) 
A10F ISETQ U6 IPUT0N2ILISTIQU0TE A2) I LI ST I QUOTE HEAOII 
(LI ST (QUOTE NONEI) 24 N ICAAR U3>> U6 NIDI 
I CONDI I NOT I NULL U6IMSETQ S Hill 
IGO A10A) 
A10C ISETQ U7 IANOARGS U6) ) 
A100 (CONOKNULL U7)IG0 BBA)) 

I (EQUAL (CAAR U7) {QUOTE AND)) 160 A10E1I 
IIONICAR U7 1 (APPEND VV1 VV2IKG0 A10EIII 
(GO A108I 
A10E (SETQ U7 (CDR U7II 

(GO A10DI 
A14 ICONOKNEHBERIQUOTE HEAOI U7K60 A14AII 

(I EQUAL (CAAR U2KQU0TE A2IKG0 A10AIII 
A14A ISETQ U8 ICONS Z4A U8II 

ISETQ U7 IPUT0N1 ICONS Z4A ICDAR U3>) U6D 
(CONOKNULL U7)I60 B8BI) 

(I MEMBER I CAR U6 ) I QUOTE I ANO EXISTS))) 

(SETQ U (APPENO U (ROFVICAR US) NIL)))) 
((MEMBER (CAR U6 )( QUOTE { EQUAL2 EQUAL IMPLIES) 1 1 
ISETQ U (APPENO U I CONS I CONS I CONS (CAR U8I 
(COAR U3II U61NIDDD 
I CONDI (EQUAL U7 (QUOTE DONE) I (RETURN U7II 

((EQUAL U7 (QUOTE NEXTIKSETQ SI U7))) 
(SETQ S N) 

(CONOKEQICOR US) NKGO BSBIII 
B8A (SETQ U6 (GENSUBST(CDAR USKCAAR U5KCAD0DR U3III 
ISETQ U8 Nl 
(GO A14A) 
B8B ISETQ U8 NIL I 

(GO A10AI 
C (SETQ 26 (APPEND FL6 Z6II 
(CONOKNULL LLKGO Oil 
((NULL SI (RETURN SIM 
IINULL SI) ISETQ LL IQUOTE GEN) 1 1 
((EQUAL SI IQUOTE NEXT)) IGO Cl))l 
(GO AD 
CI (SETQ Ul (NEXT NIL)) 
(CONOKNULL U1KG0 C2D) 
(SETQ SI N) 
(SETQ LL (QUOTE GEN)) 
(GO AD 
C2 I PR INT I QUOTE (PANIC C2 SCANUID 

(RETURN I QUOTE DONE 1 1 
D (CONO KNOT (NULL SI )) (RETURN I SUBST (QUOTE NEXTV) (QUOTE NEXTI SDII 
((NULL SI (SETQ LL Nil) 
(GO AD HID STOP))))!) 
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PUT0N1 LISP 

OEFINEKIPUTONIILAMSDAIL UKPROGIU1 U3 U4) 

(CONOKMEMBERICAR U) 1 QUOTE I IMPLIES EQUAL EQUAL2 ASSOC))) 
(GO C)> 
(IEQUAL(CAR Ul (QUOTE AND) KGO BZ)) 
KEQUALICAR UKQUOTE IMPLIES2))(GO B)) 
((ON U VV1KRETURN NIL))) 
(SETQ Ul N) 
(SETQ Z4A (ADD1 Z4A) I 

(SETQ Wl (APPEND Wl (CONSICONS L U) NIL))) 
(CONDI (EQUAL(CAR UKQUOTE EXISTSHIGO BID 

KEQUALICAR UKQUOTE GROUP))ISETQ ( ALLVBLES(CONS 

(CADR U) Q)))) 
((MEMBERICAR UKQUOTE(HOMOMORPHISM ISOMORPHISM 
EPIMORPHISM MONOMORPHISM))KSETQ QL1 
(GTFRM(CONS(QUOTE HMPRPXCDR U) 1 
(QUOTE XX) NIL QL1D) 
KEQUALICAR UKQUOTE FACTORGROUP) K SETO QL2 (GTFRM 
(CONSIQUOTE FGPRPKCDR Ul) (QUOTE XX) NIL QL21D) 
(CONDI (NULL QM5KGO A2)l 

KANDIEQUALICAR UKQUOTE MEMBER) KATOMICADR U))l 
(SETQ QM2 (CONS(CDR U) QM2I))) 
(MODELMAKE U) 
A2 (CONDI (NOTION U (APPEND Wl WDKRETURN Ul)l) 
Al (SETQ U3 (VERIFY U) ) 

(CONDI (NULL U3KRETURN Ul))l 
(RETURN U3) 
C (CONDKON U VV2KRETURN NIL))) 
(SETQ Ul N) 
(SETQ Z4A (ADD1 Z4AI) 

(SETQ VV2 (APPEND VV2 (CONSICONS L U) NIL))) 
(CONDKEQUAHCAR UKQUOTE ASSOC) KSETQ Q (ALLVBLES 
(CONSICADR U) Q)l ))) 

(CONDKON U (APPEND Wl WIKGO AD) 

KEQUALICAR UKQUOTE EQUAL) KSETQ U ICONSIQUOTE EQUAL2 

KEQUALICAR UKQUOTE EQUAL2) KSETQ U (CONSIQUOTE EQUAL) 
(CDR U>)))> 
(GO A2) 
Bl (CONDKNOKON U (APPEND Wl WKKGO B1AK1 
(SETQ U3 (VERIFY U) ) 

(CONDKEQUAL U3 (QUOTE DONEIKRETURN U3)) 
KEQUAL U3 (QUOTE NEXT)) (SETQ Ul U3I1) 
B1A (CONDKON(CADR U) Z3KGO BIB))) 
(PRINT(QUOTE(EXISTS B1A PUTON1D) 
(RETURN (QUOTE DONE)) 
BIB (SETQ U3 (GENSYM)) 

(SETQ U4 (SUBST U3 (CADR UKCADOR U)l) 
(CONDI (NULLIGENVBLEICADDR U) I KSETQ Z3 (CONS 
(CONS(QUOT£ RES) U3) Z3))l 
(T (SETQ Z3 (CONSICONSIQUOTE GEN) U3) Z3))>) 
(SETQ U3 (PUTONKCONS Z4A ICDR LI) U4> ) 

( ?SETQ*U (LIST N (LISKQUOTE IMPLIESKSUBSTIQUOTE EQUAL) 
(QUOTE SEQUALKCAODR U))(CAOR U) KLISTIQUOTE IMPLIESI 
(CADR UKSUBSKQUOTE EQUAL2) (QUOTE SEQUALKCADDR 011)1) 
(CONDKNOKEQUAUCDR L) NIKGO B2D) 

KEQUALICAAOR UKQUOTE AND) KSETQ Ul (PUTON1 L (CADR U))l) 
(T (SETQ Ul (PUTONKCONS(CAR L) Z4BKCA0R U)l)l) 
(SETQ Z4B (ADD1 Z4B ) ) 
(GO B22I 
B21 (SETQ Ul (PUTON1 L (CADR U))l 
B22 (CONDKEQUAL Ul (QUOTE DONEKIRETURN Ul)l 

KNOT! EQUAL (CDR LI N1KSETQ L (CONS Z4A (CDR L)))> 
((EQUAL(CAAODR UKQUOTE AND)KSETC L (CONS Z4A Nil) 
(T (SETQ L (CONS Z4A Z4B>))> 
ISETQ U3 (PUTON1 L (CADDR U))) „.,. 

B2A (COND((OR(NULL U1KMEMBER U3 (QUOTE(NEXT DONE) ))) (RETURN U3))l 

(RETURN Ul) 
) )) I) STOP) III)) 
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U MXPROGI) 
HIXRETURNI0N2 
A21XG0 A»)) 



L U Ml I) 



PUTONZ LISP 
DEFINE! ((PUTN2(LAMB0A(L U MXPROG(Ul) 
(CONOKNULL LKSETQ L (QUOTE RED))) 
(CONDIINULL MUSETO Ul (CQNSIOUOTE HEAOI NIL))) 
((ATOM MXSETQ Ul (COiKS M NIL))) 
IT (SETQ Ul (CONSICAR M) NIL)))) 
(RETURN(PUTON2(LIST L Ul (CONSIQUOTE NONE) NIL) Z4 N) 
U M)> I)))) 
DEFINE! ( (PUTON2(LAMBDA(L 
(CONDI (ON U (APPEND Ml 
((EQUAHCAR DIOUOTE 
BO (RETURNIPUT2 L U M) I 
Bl (CONDI (MEHBERICDR U) QM2XGO BO)) 
(IHEMBERICDR U) QM6XG0 B3)l 
KNULLICHECKMODELICDR UDKGO 82))) 
(GO BO) 
B2 (SETQ QM6 ICONSICDR U) QM6) 1 
B3 (CONDI (ATOM M) (RETURN NIDI) 

(RETURN (QUOTE REJECT)) 
A (CONDI (MEMBERICAR U) (QUOTE! IMPLIES EXISTS IMPLIES2 FEQUAL))) 
(RETURN NIL)) ((NULL QM5XGO BO)) 

IIANDIEQUALICAR UXQUOTE MEMBER) ) I ATOMICADR U)))(GO BID) 
(GO BO) ) )))) 
DEFINE(((ON2(LAMBDA(L U MXPR0G(U3) 
ICONDKNULL MXGO AID)) 

( (ATOM MXGO A1A) )) 
(SETQ U3 (ADDANTECICAR M) U) I 
(CONDIINULL U3XGO Aid) 

l(NULL(CDR MIXRETURN U3)) 
((EQUAL U3 (QUOTE B I X GO Aid I I 
(SETQ U3 (ADDCONSQ(CONS(CADR M) U3XCAR Mil) 
(RETURN N) 
A1A (SETQ U3 (ADDANTEC M U)> 
(CONOKNULL U3XRETURN NIL)) 

((EQUAL U3 (QUOTE B ) ) I GO A1FDI 
(SETQ U3 (ADDCONSQ U3 Mil 
(RETURN N) 
A1C (CONDI (NULLICOR M)XRETURN NILD) 
(SETQ U3 (ADDCONSQ(CADR MXCAR Mil) 
(RETURN N) 
AID (CONDI (NOTIEQUALICAR LXQUOTE A2IIHRETURN NIL))) 
(SETQ U3 (CARIGFIND U))) 
(CONDUNOTIMEMBERICAR U3XQUOTEIA2 VERA2 ))) I (RETURN NIL)) 

IIMEMBERIQUOTE HEAOXCADR U3I) (RETURN NIL))) 
(SETQ M (SUBST(C0NS(QUOTE HEADXCAOR U3IXCADR U3) U3II 
(SETQ M (APPEND M (CONS( SIXTH LI NIL))) 
(CONDI (ORINULL W) ILESSPICADDDR U3XCA000AAR WD) 
(SETQ HI (SUBST M U3 Wl) I) 
IT (SETQ W (SUBST M U3 W) ) I I 
(RETURN NIL) 
A1F (SETQ U3 I VERIFY(CDR(GFIND Ml))) 
(CONOKNULL U3XRETURN ND) 
(RETURN U3) DD ) 
COMPILEXPUTN2 PUTON2 0N2D STOP)))) 
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PUT2 
MXPROGIZ 



LISP 

U2 US 



U4 LI I 



IMPLIES2DXGO B4DI 
U) NIL))) 



DEFINE(((PUT2(LAMB0A(L U MXPROGIZ Ul 
(SETQ Ul N) 
(SETQ Z Z4) 
(SETQ Z4 (ADD1 Z4 ) I 
(CONDI (MEMBERICAR UXQUOTEIAND OR 
B5 (SETQ W (APPEND W (CONS (CONS L 
(CONDIINULL MXGO A2) I 
((ATOM MXGO 81)) 
((NULLICOR MIXGO A2AD) 
(SETQ U3 (AODCONSQICDR MXCAR MID 
(GO A2) 
A2A (SETQ Ul (QUOTE Al ) 

(GO A2) 
Bl (SETQ U3 (ADDCONSQ Z MD 
A2 (CONDI (ON U (APPEND Wl VV2DIG0 A3)) 

KNOTINULL QF1IXG0 C1D) 
A2C (CONDI (MEMBERICAR U) (QUOTE! IMPLIES EQUAL EQUAL2DXGO A6II 
((EQUALICAR UXQUOTE IMPLIES2) ) (GO I)) 
KANDINULL CX I ( EQUAL(CAR UXQUOTE EXISTDXGO ED 
((EQUALICAR UXQUOTE ORDIGO DD 
((EQUALICAR UXQUOTE AND)) (GO A7D) 
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149 



A9B 

A8 

A6 

A6C 



A28 ISETQ U4 ( ALLVBLES( ATMS UD) 00220 

(SETQ U2 (INVM U U4D 00230 

(CONDI (NULL U2XRETURNIHFM U U4 Ul L ZDD 00240 

(SETQ W (SUBSI1C0NS N (COR Lll L M)l 00250 

(SETQ U3 (PUTN2(CAR LI U2 Z>> 00260 

(GO A12A) 00270 

B4 (SETS LI (CAR Lll 00280 

(CONO( (NOT! EQUAL LI (QUOTE A2DXSET0 L (CONS N (CDR Llllll 00290 

(CO 651 00300 

A3 (SETQ U3 (VERIFY Ull 00310 

(COND( (EQUAL Ul (QUOTE AMISETQ Ul (QUOTE BID 00320 

((EQUAL U3 (QUOTE DONE 1 1 (RETURN U3II 00330 

((EQUAL U3 (QUOTE NEXT II (GO A9AIII 00340 

I CONDI (EQUAL (CAR UXQUOTE ANDIKGO A10III 003SO 

(RETURN Ull 00360 

(CONO((EQUAL(CAR Ul (QUOTE EQUAL)) (GO A6AI) 00370 

((EQUAL (CAR U) (QUOTE EQUAL2IKG0 A6B))) 00380 

( COND (( EQUAL (C ADR UKCADDR U))(GO A3II) 00390 

(GO A2B) 00400 

A6A (CONDI 10N(C0NS(QU0TE EQUAL2XCDR Ul I VV2KG0 A3))) 00410 

(GO A6C) "0*20 

A6B (CONDI (ON (CONS (QUOTE EQUAL) (CDR Ull VV2XG0 A3) 1 1 00430 

(GO A6C) OO** 

A7 (SETQ U2 Z4) 00450 

(COND( (AN0( EQUAL (CAADOR UXQUUTE MEMBER) ) ( ATOM(CAR(CDADOR UDIXGO ATA 00460 

) > ) 00470 

A7B (SETQ U3 IPUTN2 LI (CAOR UXCONS Z NIL) 1 1 00480 

(CONDI (NULL U3XG0 A12M 0O490 

((MEMBER U3 (QU0TE(NILL AIIXGO A12II 00500 

((EQUAL U3 (QUOTE BIXGO A13AII 00510 

((EQUAL U3 (CUOTE NEXTVIXGO A13BI) 00520 

((EQUAL U3 (QUOTE DONE) ) (RETURN U3)> 00530 

((EQUAL U3 (QUOTE NEXT)XSETQ Ul U3)) 00540 

((EQUAL U3 (QUOTE REJECTI I (RETURN NIDI OO550 

(T ISETQ U2 U31II 00560 

A12 ISETQ U3 (PUTN2 LI (CAOOR UXCONS Z (CONS U2 Z4)))l 00570 

A12A (CONOt (MEMBER U3 (QUOTE(0ONE NEXT) ) I (RETURN U3D) 00580 

(GO A8) 00590 

A7A ISETQ U (LISXCAR UXCAOOR UXCADR Ull I 00600 

(CONOIINULL QM5XG0 A7BII 00610 

((ANOI EQUAL (CAADDR UXQUOTE HEMBERI X ATOMIC ARICDAODR Ull)) 00620 

(SETQ U (NOHHHICH Ul))l 00630 

(GO A7B) 00640 

A10 (SETQ U4 (ANDARGS Ul ) 00650 

A16 (CONOIINULL U4XG0 A8>) 00660 

((ONICAR U4XAPPEN0 Wl U))(GO A15III 00670 

A17 (SETQ U4 (CDR U4II 00680 

(GO A16) 00690 

A15 (SETQ U3 (VERIFY (CAR U4))) 00700 

(CONDI I EQUAL U3 (QUOTE 00NE1X RETURN U3>) 00710 

((EQUAL U3 (QUOTE NEXT)) (GO A15A)>) 00720 

(GO A17) 00730 

A15A (CONOIIEQUAL Ul (QUOTE BIXSETQ Ul (QUOTE NEXTVII) 00740 

(T (SETQ Ul (QUOTE NEXT)))) 00750 

(GO A17) 00760 

A9A (CONDI (EQUAL Ul IQUOTE BIXSETQ Ul (QUOTE NEXTVII) 00770 

IT ISETQ Ul IQUOTE NEXT)))) 00780 

| GO A9B) 00790 

A13B ISETQ Ul IQUOTE NEXT)) 00800 

A13A ISETQ U3 IPUTN2 LI ICADDR U) Zl) 00810 

IGO A12A) 00820 

CI I CONOI I AND I EQUAL I CAR LXQUOTE RED X ON U QF1>) 00830 

IRETURNIQUOTE DONE)))) 00840 

IGO A2C1 00850 

D ISETQ U3 IPUTN2 LI ICAOR Ul Zl) 00860 

I COND II EQUAL U3 IQUOTE NEXT)) ISETQ Ul U3>) 00870 

1 1 EQUAL U3 IQUOTE DONE) ) I RETURN U3)l) 00880 

IGO A13A) 00890 

I IRETURNIPUTN2 LI (LIST (QUOTE AND) ILISTIQUOTE IMPLIES) QO900 

ISUBSTIQUOTE EQUAL2XQU0TE SEQUALXCAODR UIXCADR Ul) 00910 

ILISTIQUOTE 1MPLIESXCADR UXSUBSTIQUOTE EQUAL) 00920 

IQUOTE SEQUAL) ICADDR U) l>> Zl) 00930 

E ISETQ LI ISLVX Ul) 00940 

(CONDXEQ LI NXRETURN(QUOTE DONE))) 00950 

XGO A2B) 00960 

))))) COMPILE! (PUT2D 00970 

STOP)) II I 00980 
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SOL VEX LISP 
DEFINE! XSOLVEX(LANBDA(UI 
(PROGU Ul S U2 U3 U4 US U6 QF2 L U7 FUI 
ICOND((NOT(ON(CADDR Ul 231) (RETURN NIL!) I 
(SETQ U7 (GENSVMII 

(SETQ Z3 I APPEND Z3 (CONS (CONS N U7I NIL))) 
(SETQ FU (CDR U)> 
(SETQ U (SUBST U7 (CAODR U) Ul) 
(SETQ Z Z4I 
Al (SETQ Ul (CAODOR U)) 
(SETQ L N) 

(SETQ U2 (QUOTE (EQUAL EQUAL2))) 
(CONDI (MEH8ERICAR Ul) U2XG0 A2)) 

((EQUAL (CAR UIXQUOTE ANO))(SETQ Ul (COR Ul))) 
(t (RETURN NIL)) I 
(CONO((HEHBER(CAAR Ul) U2XGO Aid) 

(( EQUAL (CAAR Ul) (QUOTE MEMBER)) (GO A1BM) 
(RETURN NIL) 
A1B ( CONO (( EQUAL ( CAD AR Ull U7KSETQ L (CAR Ul))> 
(T (RETURN NIL))) 
ICONO((MENBER(CAAOR Ul) U2XSETQ Ul (CAOR Ul))) 

(T (RETURN NIL))) 
(60 AID) 
AlC (CONO(( EQUAL (CAADR UIXQUOTE MEMBER)) (SETQ L (CADR Ullll 
(T (RETURN NIL))) 
(CONO ((EQUAL (CAOR L) U7XSETQ Ul (CAR Ul))) 
(T (RETURN NIL) 1 1 
AID (SETQ S (CODR L)l 

A2 (CONOXHEMSER U7( VBLES(CADR U1IIXG0 A2A)) 
((MEMBER U7 (VBLES(CADDR UIXXGO A2BOI 
(RETURN NIL) 
A2A(C0N0(( MEMBER U7 (VBLES(CADOR U1))XRETURN NIL))) 

(GO A3) 
A2B (SETQ Ul (CONS (CAR U1XC0NS(CA0DR Ul) (CONS (CADR Ull NIL)))) 
A3 (SETQ U2 (PUTN2 NIL (CONS( QUOTE EXISTXCONS U7 
(CONS Ui NIL))) NILII 

(CONO ((EQUAL U2 (QUOTE OONEIXGO A6EDI 
(SETQ U2 (SCANU L (QUOTE «EN))I 
(CONOXEQUAL U2 (QUOTE NEXT) X GO EX 

((EQUAL U2 (QUOTE OONE)XGP A4X) 
(GO El) 
A4 (CONDI (NULL Ml) (GO A4AX 

(( EQUAL (CAAAR HI X QUOTE VER)X RETURN U2II) 
(GO A6E) 
A4A (C0NO((EQUAL(CAAAR WX QUOTE VER)) (RETURN U2))> 
A6E ( CONO ((NULL SXGO E2>)> 
E3 (SETQ H (MASK Z)) 
(SETQ QF2 NIL I 
(SETQ Ul (QUOTE MEMBER 1 1 
(SETQ U3 (PUTN2 NIL (CONS Ul (CONS CXI SI) 

(CAOOOAR Ull I 
(CONO ((NULL U3XRETURN NILII 

((MEMBER U3 (QUOTE (DONE NEXT} I XRETURN U3X) 
(RETURN N) 
E2 (SETQ U6 (VERIFY FU)) 
(PRINT FU) 

(PRINT(LIST(CAOR FUXQUOTE EQUALSI CXI) I 
(CONOXEQUAL U6 (QUOTE DONE) XRETURN U6X) 
E (SETQ U (MASK Z>) 
(SETQ QF2 NIL) 
(RETURN (QUOTE NEXT 1 1 
El (SETQ M (MASK Zll 
(SETQ QF2 NIL) 
(RETURN NIL) )))>) 
COMPILEXSOLVEX)) 
STOP) 1 1 
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00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
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SCNX LISP 

DEFINE! KSCNXILAMBDAIS L Ul U U5)(PR0GI02 U3 U4) 

(SETQ U (GENSUBSXCDR UIXCAR Ul) Ul I 

(SETQ U2 (LIST(QUOTE(EQUAL Al A2) M QUOTE (EQUAL2 Al A2 1 1 1 1 
A (SETQ U3 (CAR U2)l 

(SETQ U4 (RPLCE(QU0TE(A1 A2 1 I NIDI 

(CONDdNULL U4XG0 Bl)) 

(SETQ U3 (GENSUBST(CAR U4KCDR U4) U3I) 
B (SETQ U4 (HATCH1 U3 U)) 
Bl (CONDI (NULL U4XG0 CI) 

((MEMBER L (COAR U4IKG0 0))) 

(SETQ U4 (CDR U4I I 

(GO Bl) 
C (SETQ U2 (CDR U2 1 1 

(CONCH (NULL U2I (RETURN S))) 

(GO A) 

(SETQ U3 (CDAR U4I) 

01 (CONDdEQUALICAR U3I NKGO D2 1 1 
((EQUAL(CAR U3I LI (60 02)11 

(GO El 

02 (SETQ U3 (CDR U3I) 
(GO Dl) 

E (SETQ U4 (ALLVBLES(VBLES(CAR U3))l) 
El (CONDI (NULL U4 I (RETURN SI I 
((FREEVBLEICAR U4))(G0 E2))l 

(SETQ U4 (COR U4 ) I 

(GO Ell 
E2 (SETQ U2 (CAR U4) I 

(SETQ U4 (CDR U5II 

(SETQ U4 (CONS(CAR U4KC0NS U2 
(SUBSTICAR U3) L (CDOR U4IIDI 

(SETQ CX N) 

(SETQ L Z4) 

(SETQ U4 (PUTN2 NIL U4 (CAODOAR US))) 

(SETQ CX NIL) 

(CONDdNULL U4) (RETURN S)l 
((EQUAL L Z4XRETURN Sill 

(SETQ Ul (QUOTEIMEMBER Al All) 

(SETQ U4 (RPLCE1 QUOTE (Al All NIL)) 

[CONDI (NULL U4XG0 G))l 

(SETQ Ul (GENSUBST(CAR U4XCQR U4) Ull) 
G ISETQ U4 (MATCH1 Ul Ul) 
Gl (CONDdNULL U4XG0 HI) 

((MEMBER U2 (COAR U4)XG0 G2))l 

(SETQ U4 (COR U4I) 

(GO Gil 
G2 (SETQ Ul (GENSUBSXCDAR U4XCAAR U4I Ull I 

(SETQ U4 (GENSYMI) 

(SETQ Z3 (C0NS(CONS N U4I Z3)> 

(SETQ Ul ICONS N (SUBST U4 U2 Ul))) 

(SETQ S (CDRIGFINO LID 

(SETQ W 1SUBSK SUBST U4 U2 SI S HI) 

(SETQ U3 (SUBST U4 U2 (CAR U3D) 

(COND((NULL QF2XSETQ QF2 (CONS U4 U3))> 

(T(SETQ QF2 (CONS U4 (SUBST U3 (CAR QF2XC0R QF2IIIIII 

(GO HI I 
H (CONO((NULL QF2XSETQ QF2 (CONS U2 (CAR U3)))> 

(T(SETQ QF2 (CONS U2 (SUBSTICAR U3) (CAR QF2KCDR QF2)))))I 

(SETQ Ul N) 
HI ISETQ L IROFM LI) 
H1A (CONDdNULLLXRETURN Ull 1 1 

(SETQ S (SLVXICDAR LID 

(CONOdEQ S NIIRETURN IQUOTE DONE I ) I ) 

ISETQ L ICOR L>) 

(GO H1A) 
))))) STOP)))) 
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00100 
00110 
00120 
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00140 
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00420 
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00640 
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SLVX LISP 

DEFINE! < (SLVX(LAMBDA(U) (PR0GIU1 U2 I 
(CONDUNULL QF2XG0 ADD 
(SETQ CXI (SOLVXPICOAODR UMCAR QF2D) 
(CONDUNULL CX1KGO ADD 

(SETQ CXI (SUBST CXI (CAR QF2KCDR QF2D) 
(RETURN N) 
Al (SETQ CXI (SOLVXPICDADDR UKCADR Ulll 
(CONDI (NOTINULL CXDKRETURN N)D 
(SETQ Ul (CADDR UD 

(SETQ U2 (GHATCHICADR UDICADDR UD D 
(CONDI (NULL U2) (RETURN NIDI 

(INOTIEQUALICAAR U2XCADR UDXRETURN NIL)) 
((NULL QF2KSETQ CXI (CADR U2 ) D 

(T (SETQ CXI (SUBSTICADR U2XCAR QF2XCDR QF2DD) 
(RETURN N) DID 
DEFINE! (<S0LVXP(LAMBOA(U3 UHPROGIU1 P PP) 
(SETQ P (QUOTE »PROD) ) 
(SETQ PP (QUOTE "INVERSE)) 
A (SETQ Ul (CAR U3) ) 

(CONOKATOM Ul) (GO AD) 

(IEQUALICAR UD P ) ( GO BID 
KEQUAHCAR UD PPKGO CD)) 
(RETURN NIL) 
Al (CONDXEQUAL Ul U) ( RETURN (CADR U3DD 

(RETURN NIL) 
Bl ICONDKMEMBER U (VBLESICADR U1DXGO B2 ) ) ) 
(SETQ U3 (LISTICAOOR U1KLIST P (LIST PP (CADR 

(CAODDR U1DICADR U3XCADD0R UDD) 
(GO A) 
B2 (COND( [MEMBER U (VBLES(CADOR 
(SETQ U3 (LIST(CAOR U1KLIST P 

(CAODDR UDMCAOODR U1DD 
(GO A) 
CI (SETQ U3 (LISTICADR U1XLIST PP (CADR U3XCADDR Ul) ) ) ) 

(GO A ) ) ) ) )) 
COMPILEKSOLVXPI) STOPDID) 



UD 



U1DXRETURN NIL))) 

(CADR U3XLIST PP (CAOOR UD 



0CO1C 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 



HOMOMF LISP 

DEFINE! (IHOMOMF(LAMBDA(LXPROG(U3 U4) 00010 

(SETC U3 Z4) 00020 

(SETQ U4 (PUTN2 NIL (CADR L) NIL)) 00030 

(SETQ U4 (SCANW NILIQUOTE GENII) 00040 

(SETQ QF1 (ONLY1ROFW U3) IQUUTEIREL REL1DD 00050 

ISETQ M (MASK U3 D 00060 

(SETQ U3 Z4) 00070 

ISETQ U4 (PUTN2 NIL (CADDR L) NIDI 00080 

(CONDI (NOTIEQUAL U4 (QUOTE DONE))) (SETQ U4 (SCANW NIL (QUOTE GEN) ID) 00090 

(SETQ QF1 NIL) 00100 

(SETQ W (MASK U3)) 00110 

(CONDXEQUAL U4 (QUOTE DONE)XSETQ U4 (VERIFY DID 00120 

(RETURN U4) DID 00130 

DEFINE! XONLYILAMBDAIU D 00140 

(CONDHNULL U) NIL X I MEMBER (CAAAR U) D (CONSICAR U) 00150 

(ONLYtCDR Ul LDXT (ONLYICDR U) LID DD 00160 

STOP)))) 00170 
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GENFCN LISP 

DEFINE(((GENFCN(LAM80A(LXPR0G(U Ul UZ U3 U4 U5 U6 S) 00010 

(SETQ U4 (CONS(GENSYMXGENSYH>>) 00020 

(SETQ Z3 (CONS (CONS N (CAR (MM Z3I) 00030 

(SETQ Z2 (CONS(CONS(QUOTE RES) (COR U4) ) Z2)) 0004C 

(C0N0((EQUAL(CAR LXCAOR LIM60 Ell) 00050 

ISETQ U6 (CADR LI I 00060 

Al (SETQ US Z4) 00070 

(SETQ U (GENSVHI) C0080 

ISETQ Z3 I CONS I CONS (QUOTE GENI Ul Z3I) 00090 

(SETQ Ul (PUTONKCONS Z4A Z4B) (LISXQUOTE MEMBER) U U6III 00100 

(SETC Ul (PUTN2 NIL (LI ST (QUOTE DUMMY) Ul NILII OO110 

(SETQ Ul (SCANH N (QUOTE GENI 1 1 00120 

(SETQ Ul (COR(ROFH U3III 00130 

(SETQ U (MASK U3II 00140 

(SETQ U3 (MEM0F1 VVl (QUOTE MEMBER))) 00150 

(CONOdNULL SKSETQ U2 (CONSUIST U6 U Ul NIL)))) 00160 

A2 (CONDI (NULL U1XG0 02))) 00170 

(SETQ U (GENVBLE(COAR Ul))) 00160 

(CONOdNULL U)(GO 03))) 00190 

(SETQ U5 U3) 00200 

A5 (CONOdNULL U5) (GO 03) I 00210 

((EQUAL U (CAAR U5))(G0 A6))> 00220 

(SETQ U5 (COR U5)) 00230 

(GO A5) 00240 

A6 (CONOdNULL SXGO S2>)> 00250 

(SETQ U5 (CAOAR U5)l 00260 

(SETQ U6 U2> 00270 

A7 (CONOdNULL U6XG0 AS)) 00280 

((EQUAL U5 (CAAR U61KG0 0))) 00290 

(SETQ U6 (COR U6)) 00300 

(GO A7) 00310 

S2 (CONDd EQUAL (CAR LXCADAR U5))(G0 C>)> 00320 

(SETQ U2 (APPENO U2 (CONSILISTCCAOAR U5) U 00330 

(CAODAR Ul)) NIL))) 00340 

(GO AS) 00350 

03 (CONOdNULL SXSETQ U2 (APPENO U2 (LISTILIST N)))))) 00360 

A8 (SETQ Ul (COR Ul)l 00370 

(GO A2) 00380 

02 (CONOIIEQ S NXRETURN NIDI) 00390 

(SETQ S N) 00400 

(SETQ U6 (CAR L>> 00410 

(GO Al) 00420 

C (SETQ U6 (SUBSTICAR U4) U (CAOOAR Ul))) 00430 

CI IRETURNILISXQUOTE IMPLIES) (LISXQUOTE MEMBER) 00440 

(CAR U4XCAR L) X LI ST( QUOTE EQUAL) (LI STICOR U4) 00450 

(CAR LXCADR LXCAR U4)> U6>>) 00460 

D (RETURNI LIST (QUOTE EQUALXLISXCOR U4KCAR L) 00470 

(CAOR LXSUBSTICAR U4) U (CAOOAR Ul))) 00480 

(SUBSTICAR U4X CAOAR U6) (CAOOAR U6t>>) 00490 

E (SETQ U6 (CAR U4II 00500 

(GO Cll 00510 

11)1) STOP)) I))) 00520 
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MLOFN LISP 

DEFINE! ( (COMPOSITION LAMBDA(U VB)(PR06(U1) OOOIO 

A (CONOHATOH Ul (RETURN NIDI 00020 

KONICAR Ul Z2HSETCT Ul (CONSUISTICAR UKCAOR U! 00030 

ICAOOR Ul I Ul) 1 1 00040 

(T (RETURN NIL))) 00050 

ISETQ U (CAOOOR Ul) 00060 

(CONOKEQUAL U V8) (RETURN Ulll) 00070 

(GO A) )))>> 00080 

DEFINE! ((MLOFN(LAMBOA(EQN)(PROG(U1 U2> .. 00090 

(PR I NT (QUOTE (MUST PROVE RELATION HELL DEFINED))! 00100 

(PRINTIQUOTEdS INVERSE RELATION ONE TO ONE))) 00110 

(SETQ Ul (GENSYM!) 00120 

(SEfQ U2 (COAR EQNI) 00130 

(SETQ 22 (CONS(CONS(QUOTE RES) Ult 22)) 00140 

(SETQ Ul (MONOMF(LIST(QUOTE EQUAL) (LIST Ul (CADR U2) 00150 

(CAR U2XCA0R EQNI)(CADOR U2)> NIDI 00160 

(COND((NULL Ul) (RETURN NIL))) 00170 

(SETQ Z6 NIL) 00180 

(SETQ LON NIL) 00190 

(SETQ HI NIL) 00200 

(SETQ H NIL) 00210 

(RETURN T) II))) 00220 

DEFINE! ((WL0FN1(LAMBDA(U4 U5 U6 U7)(PR06(FV S Ul U2 U3I 00230 

(SETQ Ul (C0NS(CENSYM)(6ENSVMI>) 00240 

(SETQ 23 (CONS(CONS(QUOTE RES) (CAR Ul) I ( CONS ( CONS ( QUOTE RES) 00250 

(COR U1M 231 1 1 00260 

(SETQ U3 (6ENVBLE U4)> 00270 

CO (CONOKATOH U5K60 CD) 00280 

((EQUAL (CAR U5HQU0TE •LC0SETIM60 C4M1 00290 

CI (SETQ U2 (LIST (QUOTE EQUAL I (LI ST (QUOTE "PRODI (LISTIQUOTE 'INVERSE) 00300 

(SUBST(CAft Ul) U3 US) (CADR U6) ) (SUBST(CDR Ul) U3 US) 00310 

(CADR U6))(LIST(QU0TE "IDENTITY! (CAOR U6)))> 00320 

C2 (CONDI (NULL SM60 C31! 00330 

((NULL QMS) (GO C2AIII 00340 

(SETQ FV (LISTIQUOTE MEMBER) U3 (6ENSET U3 U7)l) 00350 

(SETQ FV (PUTONKCONS 24A 24B I ( L I ST ( QUOTE AND) (SUBST<CAR Ul) U3 FV) 00360 

<SUBST(CDR Ul) U3 FV)))) 00370 

(SETQ Z4B (AD01 Z4BII 00380 

C2A (SETQ FV (SOLVE! LIST! QUOTE IMPLIESIU2 SIM 00390 

(CONDI (NULL FV) (RETURN NILII) 00404 

(RETURN Nl 00410 

C3 (SETQ S U2I 00420 

(SETQ U5 U4) 00430 

(SETQ U6 (COR U6)) 00440 

(60 CO I 00450 

C4 (SETQ U2 (LISTIQUOTE MEMBER! (LISKQUOTE -PRODI (LIST 00460 

(QUOTE •INVERSEIISUBSTICAR Ul! U3 (CAOR U5IKCADDDR U5II 00470 

(SUBST(CDR Ull U3 (CADR USIKCAOODR U5IKCA0DR USD) 00480 

ICO C2) 00490 

III)) STOP) )>>!)) 00500 
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MONOMF LISP 

DEFINE! (( MONOMF (LAMBDA (EQN SKPR0G(U1 U2 U3 U4 U5 U6 U7 FV) OOOIO 

(SETQ U6 (CAOR EQN) I 00020 

(COND((FREEVBLE(CAOOOR U6IIIG0 BID 00030 

Al (SETQ U2 (CONS Z4A Z4II 00040 

(SETQ FV (CONS Wl VV2D 00050 

(SETQ U4 (GENS VMM 00060 

(SETQ Z3 I CONS (CONS (QUOTE GEN) U4) Z3D 00070 

(SETQ U3 (PUTONKCONS Z4A Z4B) (LI ST (QUOTE MEMBER I U4 (CAOR U6M)I 00080 

(SETQ U3 (PUTN2 NIL (LIST! QUOTE DUMMY) (SUBST U4 00090 

(CADDDR U6) U6>) NIDI 00100 

(SETQ U3 (SCANH N (QUOTE GEN))) 00110 

(SETQ U3 Z4) 00120 

(SETQ Wl NIL) (SETQ. VV2 NIL) 0O130 

(SETQ U4 (PUT0N1 (CONS Z4A Z4B) EQN) I 00140 

(SETQ U4 (SCANH NIL (QUOTE GEND) 00150 

(SETQ U4 IGFIND U3>) 00160 

(CONCH (NULL U4) (RETURN NIL))) 00170 

(SETQ U5 (CAOOR(CDADDR(GFIND(CAAOAR U4))))) 00180 

(SETQ U4 ICADDR U4>) 00190 

(SETQ Z6 NIL) 00200 

(SETQ LON NIL) 00210 

(SETQ Ml NIL) 00220 

(SETQ M NIL) 00230 

(SETQ 24 (CDR U2DISETQ Z4A (CAR U2)> 00240 

(SETQ Wl (CAR FV))(SETQ VV2 (CDR FV)) 00250 

(SETQ U7 QM2) 00260 

(SETQ QM2 FQM2KSETQ QM3 FQM3KSETQ QM4 FQM4KSETQ QM6 NIL) 00270 

(COND((NULL S) (RETURN (HLDFN1 U4 U5 U6 U7))) 00280 

((ATOM U4KG0 A2)) 00290 

((EQUAL (CAR U4)( QUOTE *LCOSET))(G0 A6ID 00300 

A2 (SETQ Ul (GENVBLE U4)> 00310 

(CONDI (NULL U1)(G0 A8)l) 00320 

(SETQ U3 (SOLVXP(LIST U4 ( LI ST( QUOTE •IDENTITY) 00330 

(CAODR U6)>) UD) 00340 

I CONDI (NULL U3KG0 A8)l) 00350 

(SETQ FV (PUTONKCONS Z4A Z4B) (LIST(QUOTE EQUAL) Ul U3))l 00360 

(GO 0) 00370 

A6 (SETQ FV (PUTONKCONS Z4A Z4B) (LI ST( QUOTE MEMBER) 00380 

(CADR U4) ICADDR U4))>) 00390 

ISETQ Ul (GENVBLE U4I) 00400 

(GO D) 00410 

AS (SETQ FV (PUTONKCONS Z4A Z4B) (LISTCQUOTE EQUAL) U4 00420 

(LIST(QUOTE •IDENTITY) (CAODR U6))D) 00430 

D (SETQ Z4B (A001 Z4B)) 00440 

(CONOKNULL QH5KG0 00)) 00450 

((NULL U1HG0 DO))) 00460 

(SETQ FV (PUTONKCONS Z4A Z4B) (LISTIQUOTE MEMBER) Ml (GENSET Ul U7))l) 0047C 

(SETQ Z4B (A001 Z4B>) 00480 

DO (SETQ FV (SOLVE(LIST(QUOTE EQUAL) U5 00490 

(LISTIQUOTE •IDENTITY) (CADR U6)))l) 00500 

(CONOKNULL FV) (RETURN NILD) 00510 

(RETURN N) 00520 

B (SETQ Ul (COMPOSITIONICAODR EQNKCADOOR U6))l 00530 

(COND((NULL U1KC0 Mill 00540 

Bl (CONO((ON( LIST I QUOTE ONEONEKCAR UD) VV1)(SETQ Ul (CDR Ul))) 00550 

(T (GO ADD 00560 

(CONOKNULL U1KG0 B2)D 00570 

(GO Bl) 00560 

62 (PRINKQUOTECFUNCTION IS A COMPOSITION OF MONOHORPHISMS) ) ) 00590 

(RETURN N) 00600 

))))) STOP))))))) 00610 
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VERIFY LISP 
DEFINE! I ( VERIFV(LAMBOA(UI 
(PROGIU1 UZ U3 U4 U5 U6 U7 TT NN 6) 

(SETQ G (QUOTE A)) 
AO (SETQ U2 Ml) 
Al (CONDI (NULL U2HG0 A2D 

((EQUAL G (QUOTE A))(GO AlAII 
((EQUAL (CAR U6HCADDDAAR U2IKGO A3>)> 
A1B (SETQ Ul (APPEND Ul (CONS(CAR U2I NILlll 

(SETQ U2 (CDR U2)l 

(GO Al) 
A1A (CONDI (EQUAL U (CDAR U2IXGO A3))) 

(GO A1B) 
A3 (SETQ U3 (CAAAR U2) ) 

(CONDI (MEMBER U3 (QUOTE(VER VERA2 IRRDKGO A6)> 
((EQUAL G (QUOTE A)) (GO A3C)1 
((EQUAL G (QUOTE BIKGO A30)) 
((ONLYMENB(CDR U6XCADAAR U2))(GO A3CIXI 
A3C3 (SETQ U7 (OELTFICOR U6IICADAAR U2))) 

ISETQ U3 (CONS U3 (CONS U7 ICDDAAR U2)ll) 
A3E ISETQ U2 ICONSICONS U3 (CDAR U2IXCDR U2DI 
A9B (CONDKNULL TTXSETQ Wl (APPEND CI U2 1 ) ) 

(T (SETQ M (APPEND Ul U2)))l 

(GO AT) 
A30 (COND(( MEMBER (CDR U6XCAO0AAR U2))(GU A3C))1 

(SETQ U7 (DELPR(COR U6XCA0DAAR U2) ) ) 

(SETQ U3 ICONS U3 ICONS(CAOAAR U2XCONS U7 (COR (CDDAAR U2 I ) ) ) 1 ) 

(GO A3E) 
A3C2 (CONDI I MEMBER I QUOTE HEAOXCAOAAR U2)XGO A3C3M) 

(GO A3C) 
A3C1 (CONDKEQUAL U3 (QUOTE A2)XGO A3C2IX 
A3C (SETQ U3 (CAR U2)) 

(SETQ U2 (COR U2 I I 

(CONO( (EQUAL G (QUOTE CIX60 A3FM 

((EQUAL G (QUOTE A) > (SETQ U6 (CONS! CADODAR U3) NIL)))) 

(SETQ U4 (MIRGEAUACKICAOAR U3XCAR U6)> U4X 

(SETQ US (MIRGEA(TACK(CADOAR U3XCAR U6>) U5>) 

(CONDI! EQUAL (CAAR U3XQU0TE A2IXG0 A4D 

((EQUAL(CAAR U3) (QUOTE PNT1XSETQ NN (QUOTE NEXT)))) 

(SETQ U3 (CONS(CONS(QUOTE VERXCDAR U31XCDR U3))l 
A3A (SETQ U2 (CONS U3 U2)l 

(GO A9B) 
A3F (SETQ U5 (MIRGEAITACMCADDAR U3XCAR U6II U5)l 

(CONOdEQUALICAAR U3XQUOTE PNTIXSETQ NN (QUOTE NEXT)))) 

(SETQ U3 (CONS)CONS(QUOTE IRRXCOAR U3IXCONS N (CDR U3))>) 

(GO ASA) 
A4 (SETQ U3 (CONS(CONS(QUOTE VERA2XCOAR U3))(CDR U3>)) 

(GO A3A) 
A2 (COND((NULL TTXGO A2AIM 

(GO A7) 



TT Nl 
NIL) 

U) 



(QUOTE AXIRETURN NIL))) 
{QUOTE CXIGO A7AX) 



B)l 



ICOR U4X 
TT NIL) 

NIL) 



A2A (SETQ 

(SETQ Ul 

(SETQ U2 

(GO Al) 
A6 (CONDKEQUAL 
A7 (CONO( (EQUAL 

(SETQ G (QUUTE 

(CONDXNULL U4XG0 A7AX1 

(SETQ U6 (CAR U4X 

(SETQ U4 
A7B (SETQ 

(SETQ Ul 

(GO AO) 
A7A (COND((NULL USXGO Cl))l 

(SETQ U6 (CAR US)) 

(SETQ U5 (COR U5)l 

ISETQ G I QUOTE CD 

I GO A7B) 
CI (CONDI (NULL W1XGO C2) I 

KEQUALICAAAR W1XQUOTE VER) XRETURN(QUOTE DONE)))) 

(RETURN NN) 
C2 ICONDIIEQUACICAAAR M) (QUOTE VER) ) (RETURN! QUOTE OONE)))) 

(RETURN NN) ))))) 
COMPILEKVERIFYX 
STOP) 



0OO1O 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
OO210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
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INVN LISP 

DEFINE! 1 1 INVMILAMBOAIU U2XPR0CIU1 U4 US LU 

ISETQ LL 01 

(CONDI (HEMBERICAR UXOUOTEI IMPLIES FEQUAL EXISTS!)) 
(RETURN NIL 1 1 
((NOT (AND (MEMBER (QUOTE »PROD) U2M MEMBER (QUOTE •INVERSE) U2D) 
(RETURN! INVM2 U U5 U2)))> 
B4 (CONO((NULL LLXRETURNIINVM2 U US U2>)1) 

(SETQ Ul (PMATCHICAR LL) U) ) 
B3 (CONDI (NULL UIXGO BID) 

(SETQ U4 (INVSUBIPRO0AR6SIC0AR Ullll) 

(CONDI (NULL U4XG0 B2))) 

ISETQ U IINVREDOICDAR Ul) U4 U (CAR LL))) 

(SETQ U5 U) 
B2 (SETQ Ul (CDR Ull) 

(GO S3) 
Bl (SETQ LL (CDR LL)) 

(GO B4) ))))) 
DEFINE! ( (INVM2( LAMBDA (U U5 U6IIPR0GIU1 U2 U3 U4 SI) 

(CONDI (NULL U5) ISETQ SI N))> 
(CONDI I MEMBER I QUOTE 'INVERSE) U6IIG0 El))) 

(SETQ Ul (LIST NIL NILI) 

(SETQ U2 ILIST NIL)) 

(SETQ U3 (LIST NIL)) 

ICONOIIANOIMEMBERIQUOTE >PRO0) U6> (MEMBER (QUOTE •IDENTITY) U6)l 
ISETQ U4 ILIST N Nil) 
IT ISETQ U4 ILIST NIL NIL)))) 

(GO E9) 
El (SETQ U2 ILIST N)) 

I CONDI I MEMBER I QUOTE *PROD) U6)IGO E2))l 

ISETQ Ul (LIST NIL NIL)) 

ISETQ U4 ILIST NIL NIL)) 

I CONDI I MEMBER (QUOTE "IDENTITY) U6) ISETQ U3 ILIST N>)> 
IT ISETQ U3 ILIST NIL)))) 

IGO E9) 
E2 ISETQ Ul ILIST N N)-> 

ICONDIIMEMBERIQUOTE "IDENTITY) U6XG0 E3)>) 

ISETQ U3 ILIST NIL)) 

ISETQ U4 ILIST NIL NIDI 

IGO E9) 
E3 ISETQ U3 ILIST N)l 

ISETQ U4 ILIST N N)l 
E9 ISETQ U3 ISIFTIAPPENO Ul (APPEND U2 (APPEND U3 U4IIII1 
A (CONDI INULL U3)IGO DM) 

ISETQ U2 ICAAR U3I) 

(SETQ US ICAOAR U3)> 

ISETQ Ul IRPLCEIQUOTEIA1 A)) NIL)) 

ICONOI INULL UIXGO BID 

(SETQ U2 (6ENSUBSTICAR U1XCOR Ul) U2)> 

ISETQ US IGENSUBSTICAR U1XCOR Ul) USD 
B (SETQ Ul (MATCH1 U2 U)l 

(CONDI I NULL UIXGO Oil 

(SETQ SI NIL) 

(SETQ U (RPTSUB U5 U2 U U1D 
C (SETQ U3 (CDR USD 

(GO A) 
(CONOXNULL S1XRETURN UD> 

(RETURN NIL) )>))) 
DEFINE! IISIFTILAMBOAtUXPROGtUL U2) 

(SETQ Ul IQUOTE(((*PROD Al ("INVERSE Al A) A) 
(•IOENTITY A)X(*PROD(*INVERSE Al A) Al A) 
(•IOENTITY A)X(*INVERSE(*INVERSE Al A) A) Al) 
({•INVERSE(*IOENTITY A) AX*IDENTITY A)) 
((•PROD Al ("IDENTITY A) A) Al) 
((•PROD (•IDENTITY A) Al A) Al)))) 
A (CONOXNULL UK RETURN U2D 

((EQUAL I CAR U) NXSETQ U2 (CONSICAR UDU2DD 

(SETQ U (CDR Ul) 

(SETQ Ul (COR UD) 

(GO A) ))))) 
COMPILE! (INVMD 
STOP)))) 
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MODEL LISP 
DEFINE(((M00ELHAKE(LAMB0ACU)(PR06(U1 U2 U3I 

(SETQ Ul QH1) 
AO (CQNDIINULL Ul) (RETURN NIL)) 

KEQUAL(CAR UXCAAAR UllKGO Alt)) 

(SETQ Ul (COR Ul)) 

(GO AO) 
Al (SETQ Ul (CAR Ul)) 

(SETQ U2 (RPLCE(ALLVBLES(VBLES(COAR Ul) )) (ALLVBLESI VBLESICOR U))))l 

[CONDI (NULL U2XG0 A1B))) 

(SETQ Ul (GENSUBST1CAR U2XCDR U2 ) Ul)) 
A1B (SETQ Ul (GENSUBSTICOR U) (CDAR U1MCDR Ul ) ) ) 

(SETQ U2 (CAR Ul)) 
A2 (CONDI (NULL U2XG0 A3D) 

(SETQ U3 (ALLVBLESICAR U2))l 

(SETQ U QM3I 

(SETQ QM3 NIL) 
A2A (CONDI (NULL UXGO A2C)) 

((NULL(MEET(CAR U) U3IXSETQ QH3 (CONS(CAR U) QM3))> 
(T (GO A2BD) 
A2A1 (SETQ U (CDR Ull 

(GO A2A) 
A2B (SETQ U3 I ALLVBLESI APPENDtCAR U) U3D1 

(GO A2A1) 
A2C (SETQ QM3 (CONS US QM3X 

(SETQ U2 (COR U2)l 

(GO A2) 
A3 (SETQ Ul (COR Ul)) 
A3A (CONDI (NULL U1XRETURN NIL)) 

(1 EQUAL (CAAR U1XCAOAR U1IXGO A3B))) 

(SETQ QM4 (SNHENBICAR Ul KCONSICAOAR Ul) (CONS(CAAR Ul) NIL)) QM4II 
A3B (SETQ Ul (CDR Ul)) 

(GO A3A) III)) w 
DEFINE! I (CHECKMODEL(LAHBOA(UXPROGIU1 U2 U3) 

(SETQ Ul QH2) 
AO (CONO((NULL U1XGO All) 

((EQUAL(CAAR U1XCAR Ull (SETQ U2 ICONSICADAR Ul) U2)l)l 

(SETQ Ul (COR Ull) 

(GO AO) 
Al (CONOXNULL U2> (RETURN T))) 

(SETQ Ul QH3) 
A1A (CONDI (NULL U1XRETURN Tl) 

XMEMBER(CADR UXCAR U1III60 A2))l 

(SETQ Ul (CDR Ul)) 

(GO A1A) 
A2 (SETQ Ul (CAR Ul)) 

(SETQ U3 U2) 
A2A tCONDKNULL U2> (RETURN NIL)) 
((MEMBER (CAR U2) U1XGO A3))l 

(SETQ U2 (COR U2>> 

(GO A2A) 
A3 (SETQ Ul QH4) 

(SETQ U2 NIL) 
A3A (CONDI (NULL U1XGO A4)) 

((EQUAL(CAAR U1XCAOR UIXSETQ U2 (CONS(CADAR Ul) U2>)>> 

(SETQ Ul (COR Ul)) 

(GO ASA) 
A4 (CONDI (NULL U2) (RETURN Till 
A4A (CONDI (NULL U3XRETURN NIL!) 

(IMEMBERICAR U3) U2XSETQ U3 (CDR U3))> 
(t (RETURN T))l 

I GO A4A) ))))) 
DEFINE(((HEET(LAHBOA(Ul U2) 

(CONOXNULL Ul) NIL) I IMEMBERICAR Ul) U2X CONS (CAR U1XMEET 

(CDR Ul) U2IIXT (HEEXCDR Ull U2))l )>)) 
DEFINE! ((SHMEMB(LAMBOA(Ul U2 L) 

(CONOXNULL LI (CONS Ul NIL) X (EQUAL Ul (CAR D) L> 

((EQUAL U2 (CAR DXCOR LIXT ICONSICAR LXSWMEMB Ul U2(CDR L))l)))))l 
DEFINE! XN0HUHICHILAMB0AIUXPR06IU1) 

(SETQ Ul (CDADR U)) 

(CONOI (MEMBER Ul QM6XRETURN U) ) 
((MEMBER Ul QM2XG0 A)) 
I (NULL (CHECKMOOEL UDXRETURN Ull I 
A (RETURN(LIST(CAR UXCADOR UXCADR Ull I 1)1)1 
DEFINE! ( (GENSET(LAMBDA(U LXPROGt I 
A (CONOXNULL LXGO B)l 

((EQUAL (CAAR LI Ul (RETURNICADAR Dili 

(SETQ L (COR L)> 

(GO A I 
B (PRINT(QUOTE(GENSET IS RETURNING NONSENSE))) 

(RETURN(QUOTE XX)) I)))) 
STOP)))) 
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GTFRM LISP 
DEFINE(((GTFRM(LAMBOA(U L Z LN) 
(PR0GIU1 U2 U3 U4 S) 

A (CONDI (EQUAL L (QUOTE YD (SETQ U4 YD 
((EQUAL L (QUOTE X))(SETQ U4 XI) 
(T (SETQ U4 XX))) 
»1 (CONDI (NULL U4MG0 A2 I I 

KEQUALICAAAR U4MCAR U))IGO All))) 
(SETQ U4 I COR U4D 
(GO Al) 
All (CONOdNULLICOAR UAH (GO A1BD) 
(SETQ Ul (CDAAR U4D 
(SETQ U2 (COAR U4D 
(SETQ U3 (ALLVBLES(VBLES U2 I ) ) 

(SETQ U3 (RPLCEF U3 ( ALLVBLES( VBLES(CDR U))))l 
(CONDI (NULL U3XGO A1A))) 
(SETQ U2 (GENSUBST(CAR U3KC0R U3) U2)) 
(SETQ Ul (GENSUBSTICAR U3MCDR U3) Ul ) ) 
A1A (SETQ U2 (GENSUBST(CDR U) Ul U2)) 

(CONDI IORIEQUAL L (QUOTE X)) (EQUAL S N) ) (RETURN 
(PUTN2 NIL U2 ZD) 
((EQUAL L (QUOTE XXDIGO B)) 
(T (RETURN(PUT0N1(C0NS Z4A LN) U2)))> 
A1B (CONDI l£QUAL L (QUOTE X) I (SETQ S N)l 
(T (RETURN NIL))) 
(SETQ L (QUOTE Y>> 
(GO A) 
A2 (CONO( (EQUAL L (QUOTE X) I (PRlNT(QUOTE 

(CAN YOU GIVE HE A SUFFICIENT CONDITION FOR) Ml 
(T (PRINTIQUOTE (CAN YOU GIVE ME A DEFINITION OF))))) 
(PRINT(CAR Ul) 
I SETQ Ul (RDFLXO)) 
(CONDI (EQUAL Ul (QUOTE NOD (SETQ Ul ICONSICONSICAR U) 

NIL) NIL)))) 
(COND( (EQUAL L( QUOTE YD (SETQ Y (CONS Ul YD) 
((EQUAL L( QUOTE XII (SETQ X (CONS Ul X) ) ) 
(T (SETQ XX(CONS Ul XX) ID 
(SETQ U4 (CONS Ul NIL)) 
(GO All) 
B (CONDI (NOTION U2 LNDISETQ LN IAPPENO LN 
ICONSICONS N U2) NIL))))) 
(RETURN LN) 
) ) I ) I STOP ) ) D 



00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
0O110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
0O230 
00240 
00250 
00260 
0027C 
00280 
00290 
0030C 
00310 
00320 
00330 
00340 
0C350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 



161 



:.. jis,tS3:-Jia|-4S*«-A 



r^p^ssswsiSs 



~5Ps^tftijy*»a^ , v 



(CDODR U31IIII 



MATCH LISP 

0EFINE«((A00C0NSQ(LAMBDA(Z MKPR0G(U3 U4 U5) 
(SETQ U3 (CAR(GFIND MM) 
ISETQ US (APPENDM( CAOOR U3) Zll 
(CONDKNULL U5I (RETURN NILI 1 1 
(SETQ U4 (CONSICAR U3l(CONS(CAOR U3KCONS U5 
(C0NDK0R(NULL WKLESSP H (CADOOAAR Hl>) 
(SETQ Wl (SUBST U4 U3 Willi 
(T (SETQ W (SUBST U4 U3 Willi 
(RETURN NILI Hill 
0EFINE(KAPPENDM(LAMBDA(L 21 ...,,,, 

(CONO((MEHBER Z LI NILI (T (CONS Z Llll III) 
DEFINE(KADDANTEC(LAMBDA(M UHPR0G(U3 U4 U5I 
ISETQ U3 (CAR(GFINO Ulll 

ICONDI IGMEM8 M (CAOOR U3I I (RETURN NILII 
((EQUAL H (CAODDR U3I I (RETURN NILII 

KNULLIANOEND M ICADDR U3I 1 1 (RETURN NILII 

IIMEMBERICAR U3IIQU0TEI VER VERA2I 1 1 IRETURNIQUOTE Bill I 
A2A ISETQ U5 I APPENOMICAOR U3I Mil 

ICONDI INULL U5I (RETURN NILI 1 1 

(SETQ U4 (CONS(CAR U3IICONS U5 (CODR U3IIII 
(CONO((OR(NULL Wl (LESSP(CAOOOR U3MCA000AAR Will 
(SETQ HI I SUBST U4 U3 Willi 
IT (SETQ W ISUBST U4 U3 Willi 
{RETURN ICAODOR U3II lllll 
OEFINEI II ANOARGSt LAMBDA IUK PROG! I 

( CONDI (EQUAL I CAAOR U I (QUOTE ANOIMGO All I 

(IEQUALICAAOOR UKQUOTE ANOIKGO A2III 
(RETURN(COR Ull >#<>#i 

Al (CONO( ( EQUAL (CAAOOR UKQUOTE ANOIKGO A3III 

I RETURN! APPENO(COR UKANDARGSICADR Ull II 
A2 (RETURN(APPENO(COR UKANOARGS (CAOOR Ullll ..... „.„„,,..--„ .„,.,, 
A3 IRETURNIAPPENDICDR Ul (APPEND! ANOARGS(C ADR Ul II ANOARGSICADOR Ull III 

llll 
DEFINEIIION2AVERILAMB0AIUIIPRUGIU1I 

ISETQ Ul IGFINO Ull 

I CONDI (NULL Ul I (RETURN NILI) .... 

KEQUAL(CAAR Ull (QUOTE VERA2I I (RETURN(CADAR Ull II I 

(RETURN NILI lllll 
DEFINEKIMATCHKLAMBOAIU LKPROGIU1 U2I 

ICONDI (NULL LI (RETURN NILII 
IIATOMICAR LIHGO A2III 

ISETQ Ul (MATCM1 U (CAR Llll 

(CONDKNULL UIKRETURNIMATCH1 U ICDR Llllll 

ISETQ U2 IHATCH1 U ICDR Llll 

I CONDI I NULL U2 II RETURN Ullll 

I RETURN IAPPENO Ul U2»l 
A2 ICONDI (ATOM UKGO ASM 

IIFREEVBLEICAR UIKGO All I 

IIEQUALICAR UKCAR LI 1160 ASM I 

I RE TURN I NATCH 1 U ICDR Llll 
Al ICONDKONICAR LI Z2IIG0 A5III 

(RETURN(HATCH1 U (CDR Llll 
AS (SETQ Ul (GMATCH U LI I 

(CONDKNULL U1KRETURN IHATCH1 U (CDR Llllll 

ISETQ U2 INATCH1 U (CDR Llll 

(RETURN (CONS Ul U2II lllll 
COMPILE ( I AOOCUNSQ APPENOM AODANTECII 
COMPILE! I ANOARGS 0N2AVER MATCH1II 
DEFINE! KMASKILAMBDAIZKPROGIU Ul U2I 

ISETQ U Wl 
A (CONDKNULL UK RETURN Wll 

((EQUAL Z (CAOOOAAR UIKGO Bill 

ISETQ Ul I APPEND Ul ICONSICAR Ul NILI 1 1 

ISETQ U ICOR Ul) 

(GO Al 

6 '^EH^^AAR^.^QUOTE.REL RELHI, ISETQ U2IAPPEND U2 

NILI II 1 

IT ISETQ Ul IAPPENO Ul ICONSICAR Ul NILI llll 

ISETQ U ICOR Ull 

IGO B) 
IPRINT U2I 

I RETURN Ull lllll 
COMPILE! (MASK II 
STOP I 
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GMATCH LISP 

DEFINE! ((IMPMATCH(LAMBDA(U MXPR0G(U1 U2 U3 U4I OOCIO 

(CONDU EQUAL (CAR U) (QUOTE EQUAL) I (GO AD) 00020 

I (EQUAL (CAR U) (QUOTE EQUAL2I)(G0 A2I) 00030 

1( EQUAL (CAR U> (QUOTE EXISTS!) (60 A8) ) 00040 

l(EQUAL(CAR U) (QUOTE IMPLIES)) (GO A6) ) 00050 

IIEQUALICAR U> (QUOTE AND)) (GO A3D) 00060 

(RETURN NIL) 00070 

Al (SETQ U2 (CONSICADR U) NIL)) 00080 

(GO A4) 00090 

A2 (SETQ U2 (COR U>) 00100 

A4 (CONDI (NULL U2XRETURN Ul>)> 00110 

(SETQ U3 (CAR U2)) (SETQ U2 (COR U2)l 00120 

(SETQ U4 (GMATCH U3 M)> 00130 

(CONDI ( NOT (NULL U4>) ISETQ Ul (APPENO Ul (CONS U4 NILI)))) 00140 

(CONDI ( EQUAL (CAR H) (QUOTE EXISTS) IIGO A4)) 00150 

IIMENBERICAR Ml (QUOTE (EQUAL EQUAL2) > > (SETQ U4 (MATCH1 U3 (CONS 00160 

(CAOR H) NILDIKT (SETQ U4 (MATCH1 U3 (CDR Ml ) ) I ) 00170 

ICONOK NOT (NULL U4DISETQ Ul (APPEND Ul U4DII 00180 

(GO A4) 0019C 

A3 (SETQ U2 ( ANOARGS Ul) 00200 

(GO A7I 00210 

A6 (SETQ U2 (CDDR Ull 00220 

(SETQ Ul (ALLMATCHKCAR U2) M) ) 00230 

A7 (CONDI (NULL U2K RETURN Ul I 1 1 00240 

(SETQ U3 (CAR U2II ISETQ U2 (CDR U2 1 1 00250 

I SETQ Ul (APPENO Ul I IHPHATCH U3 Ml)) 00260 

IGO A7) 00270 

AS ISETQ 23 I SUBST I CONS {QUOTE RES) (CAOR Ul) 00280 

(CONS N (CAOR Ul) 231) 00290 

(SETQ Ul (IMPMATCHICAODR U) M)) 00300 

(SETQ Z3 (SUBST(CONS N (CAOR U)> 00310 

(CONS I QUOTE RESXCADR U)l Z3)) 00320 

(RETURN Ul) ))))) 00330 

DEFINE! ((GMATCHK LAMBDA (U Ul U2 V2)(PROG(V3 V4) 00340 

IC0N0((NULL UXGO AD) 00350 

(INULL UD (RETURN NIL)) 00360 

((ATOM UXGO A5D) 00370 

((ATOM (CAR UDIGO A2)l 00380 

1 1 ATOM (CAR Ul IX RETURN NIL))) 00390 

ISETQ V3 IGMATCH1ICAR UXCAR Ul) U2 V2II 00400 

(CONDI (NULL V3I (RETURN NIL))) 00410 

(SETQ V4 IGHATCH1IC0R UXCOR UD U2 V2D 00420 

(CONDI INULL V4) (RETURN NILI)) 00430 

I RETURN ICONS I APPENO I CAR V3IICAR V4I I ( APPEND (COR V3XC0R V4)))) 00440 

Al ICONOI INULL U1XRETURNIC0NS U2 V2IDI 00450 

(RETURN NILI 00460 

A2 (COND((FREEVBLE(CAR Ull (GO A3)) 00470 

((EQUAL (CAR UXCAR UDXGO A4I) 00480 

IIANO(MEMBER(CAR Ul (QUOTE! EQUAL2 EQUAL))) 00490 

(MEMBER (CAR U1X QUOTE (EQUAL2 EQUAL) >X (GO A4D) 00500 

(RETURN NIL) 00510 

A3 (SETQ V3 (GMATCH1 (COR UXCOR UD U2 V2)l 00520 

(CONDI INULL V3) I RETURN NILI 1 1 00530 

IRETURNICONSIAPPENOICONSICAR UINILXCAR V3) ) I APPENOICONSICAR UD 00540 

NILXCDR V3MII 00550 

AS (CONDI IONICAR UD Z3) (60 ASBD) 00560 

I RETURN NIL) 00570 

A5B (RETURN (CONS (CONS U U2XC0NS(CAR UD V2II) 00580 

A51 ICONOI IFREEVBLE UXGO A5D 00590 

((EQUAL U I CAR UD ) (RETURN! CONS U2 V2ID) 00600 

(RETURN NIL) 00610 

A4 (RETURN(GMATCH1 (CDR UXCOR UD U2 V2D ID II 00620 

DEFINE! (( GMATCH ( LAMBDA (U UDIPR0GIV7 V2 V3 V4 V5 V6) 00630 

ISETQ V7 IGHATCH1 U Ul ICONS N NIL) ICONS N NIDI) 00640 

ICONOI INULL V7> (RETURN NIL))) 00650 

ISETQ V2 ICOR V7D ISETQ V7 ICAR V7D 00660 

Al (SETQ V3 (APPENO V3 (CONS (CAR V7) NIL))) 00670 

(SETQ V4 I APPENO V4 I CONS I CAR V2I NILI)) 00680 

A1A ISETQ V2 I CDR V2I) 00690 

ISETQ V7 ICDR V7)> 00700 

ICONOI INULL V7XRETURN (CONS V3 V4>>) 0C710 

(IMEMBERICAR V7) V3XG0 A2>)> 00720 

(GO AD 00730 

A2 (SETQ V5 V3) 0074C 

(SETQ V6 V4) 0C750 

A3 (CONDI I EQUAL (CAR V7XCAR V51X60 A4DI 00760 

(SETQ V5 (COR V5>) (SETQ V6 (CDR V6D 00770 

(GO A3) 00780 

A4 ICONOI I EQUAL I CAR V2XCAR V6IXG0 A1AIII 00790 

(RETURN NIL) ))))) 00800 

COMPILE! (IHPHATCH GHATCH1 GMATCH) ) STOP) I) 00810 
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VBLES LISP 
DEFINEIUVBLES1LAMBDAIUIIPR0GI I 
(CONDI (NULL U) (RETURN NIL)) 

((ATOM UKRETURNIVBLESICONS U NIL)))) 
((ATOM (CAR U)I(GC AID) 
(RtTURNIAPPENOIVBLESICAR U) ) ( VBLES(COR U)))) 
Al (COND((ON(CAR U) ZDIGO A2)> 
l(ON(CAR U) ZNMGO A2D 
l(ON(CAR U) Z2KGO A2)l 
IIONICAR U) Z3XGO A2))l 
(RETURN (VBLESICOR UDI 
A2 IRETURNICONSICAR UXVBLESICDR U)))l ))))) 
OEFINE( ( ( ALLVBLES ( LAMBDA! U) 

(CONOUNULL Ul U) I IHEMBERICAR UMCDR U) X ALLVBLESICDR U))> 
(T (CONSICAR U)(ALLWBLES(CDR U))))) )))> 
DEFINE(((RESRV(LAMBOA(U Zl 

(CONOUNULL Z) Z) 1 1 MEMBERICOAR Z) U) 
ICONSICONSIQUOTE RESXCOAR Z) ) 
(RESRV U (CDR Z))l) 

IT (CONSICAR ZXRESRV U ICDR Z)>>>> )))) 
DEFINEIIIONILAMBDAIU Z) 

(CONO((NULL Z) NILXIEQUAL U (CDAR Z)l T) 
(T (ON U (CDR Z)))> )))) 
DEFINE! ( (CONNECTIVE ( LAMBDA (U) 

ICONDIIMEMBER U (CUOTE( IMPLIES IMPLIES2 OR DEFER 

EQUAL FEQUAL EQUAL2 EXISTS AND NOT))) T) 
(T FM )))) 
DEFINE! I! TERMS! LAMBDAIU LI I PROG! I 
(CONDI (NULL U) (RETURN NIDI 

((ATOM (CAR UDIGO AID) 
(RETURN IAPPENDITERMSICAR U) LKTERMSICDR Ul Ull 
Al ICONDHCONNECTIVEICAR UDIGO A2)) 

IIEQUALICAR U) (QUOTE ASSOC)) (GO A2D 
IINUMBERPICAR U))IGO A2I) 
((MEMBER (CAR U) LUGO A2D) 
IRETURNICONS U (TERMSICDR Ul LD) 
A2 (RETURN ITERMS 4CDR U) L) ) ))))) 
OEFINEIIIGENSUBSTILAMBDAIL M UIIPROGI) 
{CONDI (NULL L I (RETURN Ul) 
IIATOMICAR LDIGO A)) 
IIONICAAR L) Z2XG0 B)D 
C IKETURNISUBSTICAR LXCAR HXGENSUBSTICDR LXCDR Ml UD> 
A (CONOIIEQUALICAR LXCAR M) ) (RETURN(GENSUBST(CDR L) 
(CDR M) UID) 
(GO CI 
B (CONDI ( ATOM (CAR Mil (GO CI) 

((ONICAAR Ml Z2XRETURN1GENSUBSTICAR L) 
ICAR HXGENSUBSTICDR LXCDR M) UDD) 
(GO C) DID 
COMPILE! (VBLES ALLVBLES RESRV ON)) 
COMPILE! (CONNECTIVE TERMS GENSUBSTD 
DEFINE! 1 1 SUPXECILAHBDAIU6 UXPROGiSUP RET Ull 
A I CONDI (NULL U6XRETURN RETID 
(SETQ SUP NIL) 

(SETQ RET ICONS! SUP SUB U6 U) RET)) 
B (CONDI (NULL U6XG0 BID 

((NOT(MEMBER(COAR U6I SUPIXSETQ Ul (CONS(CAR U6I Ul)))) 
(SETQ U6 (CDR U6>) 
(GO B) 
Bl (SETQ U6 Ul) 
(SETQ Ul NILI 
(GO Al III)) 
DEFINE! I ISUPSUBILAMBDAIU6 UXPR0GIU3) 

I SETQ U3 U6) 
Al (CONDI I NULL U3XGO BID 

((EQUAL (CDAR U3> UXGO B2II 
IT ISETQ U3 ICDR U3ID) 
IGO All 
Bl (CONDI (ATOM UXRETURN UID 

I RETURN I CONS I SUPSUB U6 ICAR UDISUPSUB U6 I COR UDD 
B2 ISETQ SUP ICONSICDAR U3I SUPD 

{RETURN ICAAR U3D ))))) 
STOPDD 
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PNAMEII >)))! I 



ROFV LISP 

DEFINE(((NOLOOK(LAMBOA(MI 

(CONDI (MEMBERICAAR1GFIND M) t (QUOTE! VER IRR VERA2 NILLHI 
TXT F)l )))) 

DEFINEK(SPR£AD(LAMBDA(A)(UNPACK(CAR(GET A (QUOTE 
DEFINE! ( ( ASTERISKED! LAMBDA! A) (CONDI (EQUAL STAR 
(CARISPREAO All) TUT Fll III) 
DEFINE! I (FIFTH I LAMBDA! U) (CAR ICDDDDR Ullll I I 
OEFINEK(SIXTH(LAMBDA(U)(COND((NULKCDR(COOODR Ulll NIL) 

IT (CADRICDODDR Ulll) I III 
DEFINE(((ALLSUBSTS(LAMBDA(L M U LNKPROGIU1 UZ SI 

(SETQ Ul (GMATCH M Ul I 

ICONDKNOTINULL U1IIISETC Ul (CONS Ul NIL)))) 
Al (CONDKNULL U1KGO A2II) 

(SETS U2 (APPEND U2 I LI STICONSIGENSUBST I CDAR Ul) 
(CAAR Ull LIIGENSUBSTICDAR U1XCAAR Ul) Mill)) 

ISETQ Ul (CDR Ull) 

(GO Al) 
A2 ICONDKNOTINULL SIIIGO A3))l 

ISETQ S Nl 

(CONDKMEMBERICAR U11QUOTEIEQUAL EQUAL2 I ) I I SETQ U ICONSICADR U) NIDI) 
IT ISETQ U ICDR Ull)) 

ISETQ Ul 1MATCH1 M U) ) 

(GO Al) 
A3 (CONDKNULL U2) (RETURN NIL))) 

(RETURNICONS LN U2I) I)))) 
DEFINEKIASSOCMtLAMBDAIM U LN)IPROG(Ul) 

ICONDIIMEMBERICAR U I I QUOTE I EQUAL EQUAL2 ) I I I SETQ U (CADR Ulll) 

(SETQ Ul (PMATCH M U) ) 

(CONDKNULL UDIRETURN NIL))) 

(RETURNICONS LN Ul) ) ))) )) 
DEFINEKIPMATCHILAMBDAIM U1IPROGIU1 U2 U3 SI 

ISETQ Ul (CONS(QUOTE(»PROD Al (»PROD A2 A3 A) All 
IQUOTEI»PROD(»PROD Al A2 A) A3 A)))) 

(SETC Ul (SUBST M (QUOTE A) Ull) 

(SETQ U2 (RPLCEIQUOTEIAl A2 A3)) NIL)) 

(CONOKNOTINULL U2IKSETQ Ul IGENSUBST ( CAR U2MCDR U2 1 Ullll) 
C (SETQ U2 (MATCHKCDR Ul) Ul) 
A (CONDKNULL U2 I ( GO Bill 

(SETQ U3 (APPEND U3 < LI STIGENSU6STICDAR U2KCAAR U2 1 Ullll) 

ISETQ U2 ICDR U2 1 1 

(GO A) 
B ICONDKNOTINULL SIKRETURN U3II) 

ISETQ S N) 

(SETQ Ul (CONSICDR U1IICAR Ul))) 

(CO C) I )))) 
DEFINEKIROFVILAMBDAIZ FLGIIPROGIU Ul) 

ICONDi (EQUAL I H) (RETURN VV2D) 

(SETQ U VVZ) 
A (CONDKNULL UIRETURN Ul)) 

KMEMBERICAAAR U) FLG)ISETQ UKAPPENO Ul (CONSICAR U) NILIII) 
I (LESSPICAAAR Ul ZIIGO Bll 
(T (RETURNIAPPEND Ul Ulll) 
B ISETQ U ICDR U) ) 

(GO A) I )))) 
DEFINE! KCHNGHILAMBOAIUHPROGIUl UZ U3 U4 I 

ICONDKEQUALIFIFTHICAR Ul I Z4A1IRETURN NIL))) 

ISETQ Ul W) 
Al (CONDKNULL UDIRETURN NIDI 

KEQUALICDAR U1KCDR UDIGO A2))l 

(SETQ U2 (APPEND U2 (CONSICAR Ul) NIL))) 

ISETQ Ul (COR Ull) 

(GO Al) 
A2 (SETQ U3 (CAAR Ull) 

ISETQ U4 (SIXTH U3)l 

(SETQ U3 (LISTICAR U3KCADR U3KCADDR U3KCA0CDR U3I Z4AII 

ICONDKNOTINULL U41XSETQ U3 (APPEND U3 ICONS U4 NILIIII) 

(SETQ W (APPEND U2 (CONSICONS U3 (COR UIIICDR Ul 1 1 1 I 

(RETURN NIL) 1)11) 
STOP))) I) 
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NEXT LISP 
OEFINEI ( INEXTI LAMBDA! L) I PROG t ) 

< CONOM NOT ( EQUAL (CAAAR W ((QUOTE PNTDDGO BUM 
ISETO Wl (APPEND HI (CONS(SUBST(QUOTE RED 
(QUOTE PNTXCAR HI) NILMI 
6 (SETQ H ICDR HI) 

(CONODNULL HI (RETURN NIL) I 

((EQUAL(CAAAR HI (QUOTE RED I (GO Oil 
BI (SETQ HI (APPENO HI (CONSICAR HI NIL) 1 1 

(GO B) 
C (CONO((EQUAL(CADAR U> (QUOTE DEFERIXGO DID 
CI (SETQ H (CONS(SUBST(QUOTE PNT) (QUOTE RED (CAR HI) (COR H))) 

(RETURN Nl 
D (SETQ L (COAAR Wl) 

(COND((HEMBER(CADDR LI (CADDAR(GFINO(CAAR LIDX60 CD) 

((NULL (CD* HD (RETURN NIL) 1 1 
(SETQ HI (SUBST Z4 (CAODR LI HD > 

(SETQ H (APPEND H (CONS (SUBST Z4 (CAODR LXCAR HI) NIDI) 
(SETG Z4 (ADDl Z4D 
(GO B) >)))) 
DEFINED (CAOOOAR(LAHBOA(U)(CAR(CODOAR UIDII) 
DEFINE( ( (CA0DOAAR(LAHBDA(U) (CADR(CDDAAR U) ) ) ) ) ) 
DEFINE! DCADDAAR(LAMB0A(UDCAR(CD0AAR UD)>)> 
DEFINED (RPLCE(LAMBOA(U UD(PROG(U2 U3 U4 U5 U6I 

(SETQ U2 U) 
Al (CONODNULL U2XGO A6II 

DFREEVBLE(CAR U2IDGO A3))) 
A2 (CONO((ON(CAR U2) Z1XSETQ U5 ZDI 
((ON(CAR U2) ZNXSETQ U5 ZND 
DON(CAR U2) Z2XSETQ US Z2D 
(T (SETQ U5 Z3))> 
(SETQ U6 (CAR U5I) 
A2C (CONODNULL U5XGO A5D 

((EQUAL N (CAAR U5DIG0 A4DI 
A20 (SETQ U5 (CDR US)) 

(60 A2C) 
A3 (CONDDHEMBER(CAR U2) UIXGO A2II1 
A3 A (SETQ U2 (CDR U2II 

(GO AD 
A* (CONO( ( MEMBER (COAR U5) UIXGO A20)> 
DMEMBER(C0AR U5) UXGO A20)) 
DMEMBERCCDAR U5) U3XG0 A2DII) 
(SETQ U3 (CONS(C0AR USI U3) I 
(SETQ U4 (CONSICAR U2) U4D 
(GO A3A) 
A5 (PRINT(QUOTE(N0T ENOUGH VARIABLES))! 
(PRINT U6) 
(SETQ U (ROFLXO)I 
(SETQ US (CONSICONS N U) NIL)) 

(CONDI (EQUAL U6 (CAR ZDDSETQ Zl (APPENO ZI U5ID 
((EQUAL U6 (CAR ZNIXSETQ ZN (APPEND ZN USD I 
((EQUAL U6 (CAR Z2IXSETQ Z2 (APPENO Z2 U5DI 
(T (SETQ Z3 (APPEND Z3 US)))) 
(GO A4) 
A6 (CONODNULL U3) (RETURN NIL))) 

(RETURN! CONS US U4D DID 
DEFINE! DARGOFD LAMBDA 1U LXPROG(Ul) 
(CONODNULL LXRETURN NIL)) 

DC0NNECT1VE(CA0AR L) X RETURN! ARGOFI U (COR Dili 
DASTERISKEOICAOAR LI I (RETURN! ARGOFI U (COR DID 
DON U Z2XG0 A)) 

((EQUAL U (CADOAR LI XRETURN(CONS(CDAR LI 
(ARGOFI U (COR LIDD) 
( RETURN! ARCUF1 U (COR LID 
A ( CONO ( I ATOMIC ADD AR L) ((RETURN! ARGOFI U (CDR LDD 
((EQUAL U (CAR (CADOAR D D (RE TURN (CONS (CDAR LI 
(ARGOFI U (CDR LI DID 
( RETURN! ARGUF1 U (COR LID DID 
DEFINED (ROFH(LAMBDA(MXPROG(UI 

(SETQ U H) 
A (CONODNULL UXRETURN NIL)) 

DGREATERP H (CADOOAAR UIXSETQ U (CDR U))l 
(T (RETURN UDI 
(GO A) Hill 
COMPILE! (NEXT CADDDAR CADDOAAR CAOOAAR RPLCE ARGOFI ROFHD 
STOP I 
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ATMS LISP 

DEFINE ( ((GENVBLE( LAMBDA (UKPROG(U2 U3I 

ISETQ U2 Z3I 
A (CONDUNULL U2XGO Bll ..,..., 

((EQUAL (CAAR U2XQU0TE GEND(SETQ U3 (CONS (CDAR U2) U3ID1 
(SETQ U2 (COR U2 M 
(GO A) 
B (SETQ U2 (ATMS Ul) 
C ICONOUNULL U2) (RETURN NIL)) 

l(MEMBER(CAR U2I U3 I IRETURN(CAR U2 1 1 ) I 
(SETQ U2 (COR U2I) 
(GO C) DID 
OEFINE(((ATMS(LAHBOA(U)(COND((NULL U) NILXIATOM Ul 
(CONS U NILIIIT (APPEND(ATMS(CAR U)XATMS(COR UIIIDIIII 
DEFINE! ((RPLCEF(LAMBDA(U Ul)(PROG(U2 U3I 

(SETQ U2 Z3) 
A (CONDI (EQUAUCOAR Z3XQUOTE AllKGO BID 
(SETQ Z3 (COR Z3I) 
(GO At 
B (SETQ U3 (RPLCE U Ul)) 
(SETQ Z3 U2I 
(RETURN U3) II))) 
DEFINE(((FREEVBLE(LAMBDA(UHPROG(Ull 

(SETQ Ul (APPENO Zl (APPEND Z2 (APPEND Z3 ZN))I) 
Al (CONO((NULL Ul) (RETURN NIDI 
((EQUAL U (CDAR U1IMGO A2DI 
(SETQ Ul (CDR UD) 
(GO Al) 
A2 (CONO((EQUAL(CAAR Ul) NXRETURN III) 

(RETURN NILI 1)1)1 
DEFINE! ((TACK(LAHBDA(L MKPRQG(U1I 

(SETQ Ul (CONS(C0NS(CAR LI MINILI) 
Al (SETQ L (CDR LI) 

(CONDUNULL LIIRETURN Ullll 

(SETQ Ul (APPENO Ul (CONS(CONS(CAR LI Ml NILI 1 1 
(GO Al) 11)11 
DEFINE! (<MIRGEA(LAMBOA(L NXPROGO 
Al ICONOUNULL LXRETURN M)) 

l(EQUAL(CAAR L)(QUOTE HEAD 1X60 A2 1 1 
((EQUAL (CAAR LX QUOTE NONE) X GO A2I) 
((ATOH(CAAR LI) (GO A3))) 
(SETQ L (CONS(CONS(CAAAR LXCDAR LI I (CONS(CONS(COAAR L) 

(CDAR LIXCOR Dili 
(GO All 
A3 (SETQ M (APPEND M (CONS (CAR LI NILI 1 1 
A2 (SETQ L (CDR LI I 

(GQ All !)))) 
OEFINE(((DELPRILAMBOA(M LXPR0G(U1I 
Al (CONDUNULL LXRETURN Ulll 
(I ATOM! CAR LI I (GO A2II 
((EQUAL M (CAAR LIXGO A4II 
((EQUAL M (CDAR LIXGO A3III 
A2 (SETQ Ul (APPENO Ul (CONS(CAR L) NIL) 1 1 
(SETQ L (CDR L) ) 
(GO Al) 
A3 (SETQ 
(RETURN 
A* (SETQ 
(RETURN 



L (CONS(CAAR LXCDR LI 1 1 
(APPEND Ul LI I 
L (CONS (CDAR LXCDR LI 1 1 
(APPEND Ul LI I 11)11 
DEFINE! ((ONLYMEMB(LAMBDA(M LI 

( CONDI (NULL(CDR L) XCONOX EQUAL M (CAR Lll TXT Fill 

((EQUAL(CADR LXQUOTE HEAD) XCOND( (EQUAL M (CAR LI) TXT 
((EQUALICAR LXQUOTE HEAD! I (CON0( (EQUAL H (CADR Lll TXT 
(T Fll III) 
OEFINE(((DELTF(LAMBDA(M LXPROG(Ul) 

Al (COND(( EQUAL (CAR L) MXRETURN (APPENO Ul (COR Llllll 
(SETQ Ul (APPEND Ul (CONS (CAR LI NILI 1 1 
(SETQ L (CDR Lll 
(GO All II))) 
COMPILE! (FREEVBLE TACK MIRGEA DELPR ONLYMEMB OELTFII 
STOP) 
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ANDIHSETQ U2 
NIL11I) 



(ANDTERMS(CADOAR Ullll I 



GFIND LISP 
DEFINE! ((ANDEND(LAMBOA(M Ul (PROG (Ull 
Al (CONDUNULL U) (RETURN N)l 

((ATOM (CAR U))(GO A2) I ) 
A1A (SETQ U (COR U)) 

IGO All 
A2 (CQND((EOUAL(CAR Ul (QUOTE NONE) I (GO A1AI I ) 
(SETQ Ul IGFINDCCAR U))> 

{CONDIIEQUALICADR Ul) (QUOTE ANOIIIGO A3))) 
(GO A1A) 
A3 (CONDI (MEMBER M ( ANDTERMSICADDAR Ul) I) (RETURN NIL))) 

(GO A1AI I)))) 
DEFINE(((ANDTERMS{LAMBbA(UI(PROG(Ul U2I 
(CONDI I ATOM I CAR UIIIGO BID 
(SETQ Ul (GFINDICAAR U))> 
(CONDI I EQUAL I CADR Ul) (QUOTE 
(T (SETQ U2 ICONS ICAAR Ul 
A2 (SETQ Ul IGFINDICDAR Ulll 

I CONDI I EQUAL (CADR U1IIQUOTE ANDIIIGO A3))) 
IRETURNICONSICDAR U) U2 I I- 
A3 (RETURN(APPEND(ANDTERMS(CADOAR Ul I ) U2 1 1 
B (SETQ Ul (GFINDICAR Ul)) 

(CONDI I EQUAL I CADR U1XQUOTE AND) ) IRETURNIANDTERMSICAODAR Ul))))) 
IRETURNICONSICAR U> NIL)) II II) 
DEFINE II I GFIND! LAMBDA (MMPROGIU) 

I SETQ U (APPEND Ml WD 
Al (CONOIINULL U) IRETURN NIL)) 
(IATOM MHGO 8H 

((EQUAL M (CDAR U) ) IRETURNICAR Ulll) 
A2 (SETQ U (COR Ull 

(GO All 
B ICONDIIEQUAL M ICAOODAAR U) > IRETURNICAR Ullll 

(GO A2> ))>)) 
COMPILE! IAN0END ANDTERMS GFINO)) 
DEFINE! (IALLMATCH1 1 LAMBDA I U MIIPROGIU1 
(CONDI I EQUAL (CAR Ul {QUOTE AND)) ISETQ 
IT ISETQ U ICONS U NIDI)) 
B {CONDUNULL U) IRETURN Ul))) 
ISETQ U3 IGMATCHICAR U) Mil 

(CONDI (NOT (NULL U3IKSETQ Ul (APPEND Ul (CONS U3 NILDIII 
(SETQ U (CDR Ul) 
(GO B) I)))) 
DEFINEI (( GMEMB( LAMBDA I M U) 
(CONDUNULL Ul F) 

((ATOM! CAR UlMCONOIt EQUAL M ICAR Ul ) Tl 

IT (GMEMB M ICDR Ul))>) 
IT (CONDI (EQUAL M ICAAR U) > T) 
({EQUAL M (COAR Ull' T) 
IT (GMEMB H (COR Ulll))) III) 
DEFINE! URPLCHLAMBDAIUI I PROGIU1 U2 U3I 
AO ICONDKNULL UIIGO B))l 

ISETQ U3 IAPPENO Zl (APPEND 12 (APPEND 13 ZN)))) 
Al I CONDI I EQUAL! CAR UIICDAR U31) (GO A3) I I 
(SETQ U3 (CDR U3I) 
I GO Al) 
A3 (COND((EQUAL(CAAR U3I (QUOTE RES) I (GO A4II1 
ISETQ U3 (GENSYMII 
(SETQ Ul (CONS U3 Ulll 
(SETQ U2 (CONS! CAR Ul U2II 

(CONO((ON(CAR U) Zl II SETQ Zl ICONSICONSIQUOTE RES) U3) Zl))) 
IION(CAR U)ZNI(SETQ ZN (CONSICONS(QUOTE RES) U3) ZNII) 
(( ONI CAR U) Z2) ISETQ Z2 ICONSICONSIQUOTE RES) U3) Z2III 
IT ISETQ Z3 ICONS(CONS(QUOTE RESI U3I Z3I 1 1 I 
A* (SETQ U (COR Ull 

(GO AO) 
B ICONOUNULL Ul) (RETURN NIDI) 

IRETURNICONS Ul U2)l Mill 
COMPILE((ALLMATCHl GMEMB RPLC1II 
STOP I 
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U (ANOARGS Ullll 



OOO10 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
0O330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
0C500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
0O650 
00660 
00670 
00680 



169 



fg? 



^>y^.;iji^r^si^^m^i^^SWf&f^«^^': 



p ' ' .vwrmtiiv.'vgrf -w: ~^.. hijimum wui 



gS»¥fjB'»?*f!r 



OEFNS 



DATA 



I 

(ItSUBGROUP A BIHISNORMAL ABO) 

((MEMBER Al AI)((NORMAL A B CI) (( SEMIGROUP A)) ((ASSOC AIIKABELIAN A B) I 

((SUBSET A B)l 

((SUBGROUP A B) IMPLIES I ANOIMEMBER Al A) (MEMBER A2 A)) 

(AND! MEMBER !»PROD Al A2 B) A) (MEMBER ("INVERSE Al B) All! 

HSUBMONOIO A B) IMPLIES! ANOIMEMBER Al A) (MEMBER A2 A)) 

(HEHBEROPROD Al A2 B) Al) 

((HOMOMORPHISHIFl A B) I IMPLIES! ANOIMEMBER Al Al 

(MEMBER A2 Al I (AND (MEMBER I PI A B All BHEQUAL2 

(Fl A B l»PROD Al A2 AIII*PR0DIF1 A B A1KF1 A B A2I Bill) 

(IHOHOMF(Fl A 611 IMPLIES! ANOIMEMBER Al Al (MEMBER A2 All 

IFEQUALIF1 A B l«PROO Al A2 AIII*PR0DIF1 A B All 

(Fl A B A2I BID 

IIONTOIF1 A Bll IMPLIES (MEMBER Al BMEXISTS A2 

(ANOIMEMBER A2 AIIEOUALIF1 A B A2I Alllll 

II INVERSE Al A2 A) EQUALI»PROO Al A2 AHMDENTITV All 

|{$HAS*C0NP*SERIE5 Al EXISTS Nl (EXISTS!* N2I 

ICOHP*SERIESIIB N2I Nil All) 

IIONETCONEIF1 A Bll IMPLIESIANOI ANOIMEMBER Al Al 

INEMBER A2 A) I IEQUALI»PRODI*INVERSEIFl A B Al) Bl 

(Fl A B A2I BI!»1D€NTITV Bill I EOt) AL < »PR00 

(•INVERSE A-l Al A2 AH«IDENTITV All) 

IIRCOSET A Al B CIIIILCOSET A Al B CI I 

II 

IISSUBGROUP A BDIKNORMAL A B CIMIKUUII 

({•FININT A N9) ANDIEQUALI'FININT A IIU III 

(EQUAL(«FININT A I "SUCCESSOR N3I I (•INT(»FININT A N3I 

I A ("SUCCESSOR N3IIII) 

((•SEQ(A1 Nl AIIII'EXP Al N A)) 

((•SUCCESSOR Nil 

1 1 MEMBER Al AI)ll*PROD Al A2 Al II I ASSOC All 

((IMAGE A (Fl B CM IMPLIES2IMEHBER Al AIIEXISTS A2 

I ANOIMEMBER A2 BliSEQUALIFl B C A2I Alllll 

IIHONOHORPHISMIF1 A VI I IMPLIESIHEMBER Al A) 

( MEMBER (Fl A B All Bll 

((•INVERSE Al All (("IDENTITY A)) 

II6ROUP A) ANOIIMPLIESIANDIMEMBER Al A) 

(MEMBER A2 A) ) ( MEMBER I »PROO Al A2 A) AIMANO 

{ASSOC A)IANOINENBERI*I0ENTITV Al Al 

I IMPLIES I MEMBER Al Al I MEMBER! "INVERSE Al Al Alllll 
((CONJUGATE A Al 6 CI ANOIMEMBER Al CI 

UMPL I ES2I MEMBER A2 AIIEXISTS A3 (ANOIMEMBER A3 Bl 

IEOUAL A2 («PROO(>PROO Al A3 CII*INVERSE Al C) Cllllll 

I {SUBGROUP A Bl AND! IMPLIESIHEMBER Al Al 

[MEMBER Al Bl HANOI IMPLIES! ANOIMEMBER Al Al 

INEMBER A2 A) ) (MEMBER I'PROO Al A2 B) All 

(ANtHMENBER(»10ENTiTY Bl AH IMPLIESIHEMBER Al Al 

IM£MBERI*INVERSE Al Bl Alllll 

((KERNEL A (Fl B CI I 

IHPLIES2IHEHBER Al AHEQUALIF1 8 C A1H*I0ENT1TV Clll 

((ABEL I AN A Bl IMPLIES! ANOIMEMBER Al Al (MEMBER A2 All 

IEQUALI«PROO Al A2 BH*PROO A2 Al Bill 

I {SEMIGROUP Al ANOIIMPLIESIANDIMEMBER Al Al 

IMEMBER A2 Al I INEMBERI«PROO Al A2 Al Al) (ASSOC All 
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16, 17 
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"built-in" axioms, 33, 56 ff 
"change of variables", 50 
connective, 14 
constant, 13_, 20 

logical constant, 14 

syntactic constant, 15 
construction, 77, 86, 88, 113 
definitions, 15, 19, 24, 25 ff 
detachment, 41, 58, 107, 109, 112 
EQUAL, 14, 32, 38, 44, 87 
EQUAL2, 14 

existential generalization, 47 
existential specification, 45, 47 
EXISTS, 15 
"explore consequences", 25 ff , 34, 
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FEQUAL, 14, 50, 80 
GENFCN, 50, 81 
head (of tree), 21 
HOMOMF, 26, 50, 105 
IMPLIES2, 14 

ISOLVE, 50 ff , 64, 81 ff , 105 
isomorphism, (see ISOLVE) 
lemma, 34, 36, 37, 41 ff , 72 ff, 

91 
LISP, 13 

logical class, 21, 34, 59, 107 
logical constant, 14 
matching, 55, 57, 124 
mathematical induction, 94, 96 ff 



MODEL heuristic, 44, 45, 46, 61 ff , 

81, 90, 110 
necessary condition, 27, (also see 

definitions) 
object, 15 

compound object, _16_ 
Project MAC, 13, 23, 28 
progress, 10, 29, 34, 41, 58 ff, 

112 ff 

heuristic A, 58 ff 

heuristic B, 59, 87, 107, 112 
property list, 19_ 

of a condition or definition, 19 

of a table I entry, 21, 30 

of a table II entry, 21 ff, 30 
PNT, 23 
PUT0N1, 45 
PUT0N2, 46 

quantifier, 15, 20, 48 
reduction, 2_1 
related substitution, 33, 34, 39, 52, 
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scanning, 33 ff 
SCANW, 26, 34 ff , 49, 50, 54 
SCNX, 37, 49 

semantic model, 61 ff, 126 ff 
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SOLVEX, 26, 48 ff , 90 
statement, 17_ 
status, 23 
subordinate tree, 23, 37, 42 ff , 

61 ff, 72 ff 
subscript, 94 ff 
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25 ff 
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table II, 19, 2 1 ff, 25 ff 
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